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A SYSDATA GANHA 

DINHEIRO FAZENDO 

MICROCOMPUTADORES 

COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voce espera 

de urn grande micro. 

Compatfvel com a TRS-80 
Modelo III da Radio Shack. 
Gabincle, teclado e CPU em 
modulos iridependentes. 
Versdes de 64 a 128 KBytes de 
RAM, 16 KBytes de ROM. 
Ted ado profissional com 
numerico reduzido e 4 teclas 
defuncoes. 

Sistema operational de disco 
IKJSIIIouCP/M2.2. 
Carac teres graficos. 
Video co mposto com 18 MHZ 
de faixa dc passagern. 
Safda para impressora 
pa nil el a. 

SYSDATA III 
Software disponivel 
variado. Escolha o seii. 

Videotexto(TELESP). 
Projeto Cirandao 
(EM BRAT EL). 

Rede de telex. 

Sistema Gerenciador de 

Banco de Uadoa (SGBD), 

DBASE II. 

Compiladores CoboJ, 

Fortran. Pascal. Basic, Forth, 

Lispe Pilot. 

Editor de textos. Editor de Assembler. 

Desassembiador. 

Debugador. 

Visicale. 

Wordstar, 

emuitosoutros. 
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SYSDATA III 

Caracterlsticas tecnicas. 

Para aqueles que querem 

saber tudo. 

Tola! compatibilidade com o 

TRS-80 Modelo III da Radio 

Shack. 

Processador Z-80-A. 

Video de 16 x 64 ou 16 x 32 

(Itnhasxcolunas). 

Alimentacao de 110 V ou 220 V, 

Teclado atfanumerloo de 

69 teclas. 

Teclado numerico reduzido 

com 4 teclas de funcoes. 

Graficos com 128 x 48 pontos 

no video. 

Aceita ate duas RS-232-C 

(Sincronas ou Assincronas), 

Modem (opcional). 

Safda paralela para 

impressora. 

Placa controladora para al6 

4 drives de 5 e 1/4", dupla 

densidade (180 KBytes por 

face], face simples (dupla face 

optional). 

Opcoes futuras: 

Video compativel 16 x 64, 

16x32, 24 x 80 ou 24x40 

(linhasx colunas). 

Expansao a(6 256 KBytes 

de RAM. 

Alta resolucao graiica e cor. 

Interface para acionamento de disco rigido 

(Winchester) de S, 10 ou 20 MBytes. 

Clock dobrado (4,0 MHZ). 

To la I com pa lib ilida de com o T RS-80 

Mod. IV. 
CP/M versao 3.0. 
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VA PROCURAR SUATURMA EM UM CLUBE DE MICROS 

Reportagem sobre clube de usuarios. Como sao formados, os objetivos e 
assuntos tratados nas reunioes. Voce pode participar de um deles pagando 
ou gratuitamente. E ainda dicas para entrar em contato com clubes de 
Sinclair, Apple, TRS-80 e Color. 
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EM DIA COM AS DUPLICATAS 

Toda empresa sabe a importancia de manter, nesses dias de crise, 
suas duplicatas sob rigida fiscalizacao. Com este programa, de Paulo de 
Carvalho, voce tera o controle das seguintes opcoes: vencimentos; 
N? Duplicata; Situac§o; Banco/Cobrador; Sacado e Valor. 
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MANTENHA O DRIVE RODANDO EM ORDEM 

Neste artigo de Jos6 Carlos Niza o usuario encontrara uma orientacao a 
respeito dos principais defeitos apresentados pelos drives, com dicas 
sadias sobre manutengao preventiva e um tratamento especial para os 
disquetes. 
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CBBS, UM QUADRO DE AVISOS COMUNITARIO 
O que e, na verdade, essa forma de comunicacao entre usuarios de 
microcomputadores? E essa a pergunta que Ricardo Weiss Muricy 
responde neste artigo, relatando como surgiram esses clubes e como 
funcionam. Ao final, uma relacao dos CBBS existentes no Brasil e no 
exterior e a maneira de entrar em contato com eles. 



•0/| TECNICA PERT - Programa de Angelo 
£.1/ dos Santos Soares, para a linha Apple. 

OH RENUMERADORTOPOL6GICO- 
«7(/ Programa de Evandro Curvelo Hora, 
para a linha Sinclair. 

QQ UM GERENTE PRATICO EM BANCO 
UO DE DADOS (II) - Programa de Ivan 
Camilo Cruz, para a linha TRS-80. 
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Com muita freqiiencia, tern sido discutida a utilizagao isolada do 
microcomputador como sendo uma prdtica tendendo ao 
desaparecimento. Apesar de reconhecermos que o uso do 
teleprocessamento abre horizontes amplos para os que visam uma utilizagao 
mais interna da mdquina, consideramos tais generalizagoes radicais e 
perigosas, principalmente por deixar de lado os usudrios que tern no 
conhecimento do hardware e da programagao seus ob/etivos primeiros. 
Em recente edicao, MS tratou de questdes que envolvem o acesso as 
informacoes dispom'veis nos servigos de bancos de dados. Hoje, nosso terna 
volta a sera importdncia da comunicagao para os possuidores de computadores 
pessoais. Desta vez, contudo, tratamos de uma relagao mais informal: 
as associagoes de usudrios. 

Estes clubes tern se multiplicado, visto serem uma opgao barata e 
eficiente para os que querem intercambiar programas e conhecimentos prdticos. 
Seus organizadores, verdadeiros operdrios de um hobby que nem sempre 
Ihes traz retorno financeiro, encarregam-se de editor pequenos boletins, 
promover reunioes e "quebrar os galhos "dos socios menos iniciados. 
Tambem os organizadores dos CBBSs - outro tipo de associagao cada vez mais 
procurada - nao tern descamo, geralmente buscando, numa fase inicial 
de funcionarnento gratuito, ganhar a experiencia necessdria para uma futura 
prestagao comercial dos servigos. 

Um dos bons servigos que estes clubes e CBBSs oferecem hoje aos associados 
sao os programas em arquivo, livrando-os das grandes digitagdes. A maior 
parte dos programas oferecidos sdo os ditos de "dominio publico ", isto e, 
publicados em revistas especializadas. Um pedem permissdb as 
"fontes " e mantem os creditos do autor e da publicagSo; outros simplesmente 
vao abolindo esses "detalhes ". 

A utilizagao destes programas piiblicos exige criterio. objetivo dos au tores 
que se dispoem a publicar seus programas em revistas e disseminar o uso; 
nao o abuso. Oferecer o servigo da digitagao e uma coisa; tirar proveito 
comercial a revelia do autor e outra. Assimilaras tecnicas de um programa, 
adaptor e melhorar e uma coisa; copiar e assumir paternidade e lamentdvel. 

Novidades em MS: inauguramos neste numero as MICRO FICHAS, com uma 
tabela completa de conversdo. 
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UM PRODUTO MICROTEC 
COM A G AR ANTI A DA 




INFORMATICA EMPRESARIAL LTDA. 

O MAJOR REVENDEDORDEMICROCOMPUTADORES DEI 6 BITS DO PAIS. 
Rua Sete de Setembro, 99 - 1 1 .• andar - Tel: PBX (02 1 ) 224-7007 - CEP 20050 - Rio de Janeiro - RJ 
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GRATIS 



CIRANDAO 



Dq compra do conjunto 

profv/ional e do modulo 

de comunicacoo,voce 

gonho o enclu/ivo /oftware 

decomunicQcoocom 

o projeto Cirandao 

da Embrotel. 
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INFORMATICA EMPRESARIAL LTDA. 

O fTlfllOR REVEflOEDOR DE miCROCOmPUTflOORE/ OE 16 BIT/ DO Pfl(/. 

Rua fete de /etembro, 99 - ll.° andar. CEP 20050 RJ - Tel.: 24-7007 





Dou-lhe uma: Pronta entrega! 

u-lhe duas: Atendimento profession 

Dou-lhe ties: Melhorprego! 

Negocio fechado. 

Compumicro. O melhor em micro 
pelas melhores condigoes. 

Nexus 1600-PC2001- 
Microengenho 2-Unitron APII 
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O sorteado deste mis, que ira ganhar uma 
assinatura anual de MICRO SISTEMAS 
6 Orlando Rodrigues Pinto, do Rio de 
Janeiro. 

/ AOS USUARIOS DE RINGO / 



£ com imensa satisfacab que novamente 
Ihes escrevo, desta vez para parabeniza-los 
pelo projeto MICRO BUG. 

Possuidor que sou de um Ringo "R-470", 
ao digitar o MICRO BUG verifiquei, como 
6 de seu conhecimento, que alguns c6digos 
de caracteres do Ringo foram modificados, 
razab pela qual Ihes escrevo para que infor- 
mem aos vossos leitores, possuidores do Rin- 
go, que na implementacab do comando E 
(MICRO SISTEMAS n° 33, pag. 56), o 
valor que deve ser adotado no endereco 
7C79 deve ser F9 ao inve"s de EA. 

A modificacab no teclado do Ringo em 
relacab ao TK-85 implica em modifica- 
cSes de comandos de chaveamento a saber: 



TK-85 


RINGO 


SHIFT 3 


SHIFTW 


SHIFTS 


SHIFT3 


SHIFT E 


SHIFT D 


SHIFT4 


SHIFTT 


SHIFT D 


SHIFT E 


SHIFT G 


SHIFT4 


SHIFT A 


SHIFTS 


SHIFT F 


SHIFT R 


SHIFT Q 


SHIFT 2 


SHIFT 1 


SHIFT 1 


SHIFT 9 


GRAPHICS 



Acreditando ter colaborado com os pos- 
suidores do micro Ringo neste excelente 
trabalho empreendido por MICRO SISTE- 
MAS, quero aqui deixar meus sinceros agra- 
decimentos pela oportunidade que me tern 
dado de aprender, com a publicacab de tra- 
balhos verdadeiramente profissionais. 
Orlando Rodrigues Pinto 
Rio de Janeiro-RJ 



FORTRAN NO CP-300 



Gostaria de saber das possibilidades de 
rodar FORTRAN e PASCAL no micro 
CP-300 da Prolog ica: que perifencos seriam 
necessaVios para isso onde obter tal software? 
Jorge G. Larangeira 
Porto Alegre-RS 

De a co id o com o nosso procedimento 
habitual, remetemos suas perguntas para o 
fabricante. Eis a resposta da empresa: 

"£ possfval rodar FORTRAN e PASCAL 
no seu CP-300. Para tanto, voc§ deve possuir 
o SM-300 o cartao Controlador-300 e os 
drives, Depois deve procurar em software- 
houses um programa compilador FOR- 
TRAN ou PASCAL. 

A Proldgica realizou uma pesquisa entre 
software-houses e localizou programas 
FOR TRA N nas seguintes casas: 

• MICRO BYTE - Rua Buenos Aires, 41 
— 39 andar, Rio de Janeiro. 

• MONK - Rua Augusta, 2.690 - 29 an- 
dar — Loja 318, Sao Paulo. " 

Sidnei Stifelmann 

Coord, de Produto /Marketing de CP'S 



USUARIOSOFREDOR 



Sou um dos milhares de usudrios de um 
micro compatfvel com o TRS-80 modelo I 
e sofro vendo, a cada dia que passa, a quan- 
tidade de bons softwares desenvolvidos para 
o modelo III. At6 entab, estou restrito a 
programas ultrapassados, sem poder desfru- 
tar de uma melhor planilha de ca"lculos, base 
de dados, enfim, de programas que-rodam 
nos compatfveis ao modelo III. 

Gostaria de que, se algum colega tiver 
conhecimento de dados para a conversab do 
Enhanced Visicalc, do Profile III Plus e de 
programas similares que possam rodar nos 
compatfveis ao modelo I, os publicassem em 
MICRO SISTEMAS. 

Gostaria, tambem, de entrar em contato 
com os possuidores de micros compatfveis 
com o LNW 80 para troca de softwares espe- 
efficos desenvolvidos especialmente para 
este micro. Meu endereco e: Caixa Postal 
239 - Cabo Frio, CEP 28900 - RJ, 
Mario Ramos Vieira Filho 
Cabo Frio-RJ 

/ A DEFESA DO "SUSPEITO" / 

Fiquei estarrecido quando li na Micro 
Sistemas de fev/85 que a COMPUMAX 
MICROINFORMATICA faliu e levou o 
"suspeito" pacote Micro/DB. 

Gostaria imensamente de saber a fonte 
desta absurda noti'cia, que, alebi de inveri'- 
dica, 6 intencionalmente maldosa. 

A unica explicacao plausfvel de nossa 
"desejada" falebcia 6 que ja" estamos causan- 
do certa preocupacab no mercado, depois 
dos excelentes resultados que conseguimos 
nos uitimos meses. 

E quanto ao nosso produto, consultamos 
nossos clientes e conclufmos que o nosso 
Sistema de Gerenciamento de Informacoes 
— Micro/DB foi qualificado de "suspeito" 
por causa das seguintes caracterl'sticas: 

— SUSPEITO por falar portugue's, en- 
quanto seus colegas de classe falam outros 
idiomas como ingle's ou computes; 

— SUSPEITO por ser o mais amistoso 
de sua classe, possibilitando intimidade ime- 
diata com seus usuarios, enquanto outros 
necessitam semanas de treinamento; 

— SUSPEITO por manipular tranquila- 
mente valores de zilhoes enquanto outros se 
atrapalham ja no primeiro bilhab; 

— SUSPEITO por nab ser preconceituo- 
so, pois quando o Micro/DB entra para 
automatizar o escrit6rio, todos poem a mab 
nele, desde a secretaVia ate o executive 

E para dirimir duvidas, convido os inte- 
ressados a confirmar estas caracterl'sticas 
"suspeitas" de nosso best-seller, o Micro/ 
DB, em nossa sede na Av. Paulista, 1754/ 
145 (251-0471) ou em qualquer dos nossos 
clientes amigos. 
Walter Celaschi 
Diretor da Compumax 

Gostan'amos de nos desculpar perante a 
empresa Compumax e nossos leitores, 
deixando claro que a nota sobre a falencia 
da empresa foi produto de uma informacao 
errada levantada por nossa equipe, sem qual- 
quer segunda intengao. 



/ DESAGRADO / 

A finalidade desta e registrar o meu desa- 
grado com a polftica de economia da firma 
MICRODIGITAL Eletronica Ltda. 

Possuo um micro TIMEX 1000, com 



16K e impressora TIMEX 2040. Cansado 
do teclado de membrana e da baixa veloci- 
dade de transmissab de dados computador/ 
gravador, resolvi adquirir, em 10/10/84 um 
TK-85 tambem com 16K. 

Estranhei, pordm, ao ligar o novo compu- 
tador com a impressora conectada e nab 
conseguir que o computador funcionasse. 
Entrando em contato com a Assistfincia 
Tecnica do fabricante do micro, fui informa- 
do de que deveriam ser feitas algumas modi- 
f icacoes no meu TK, modificacoes estas que 
nab seriam feitas em garantia, mas mediante 
o pagamento de Cr$ 45 mil. 

Ora, por que o micro tern os comandos 
COPY, LLIST e LPRINT no teclado se eles 
nab funcionam? Porque a MICRODIGITAL 
nao faz as modificacfies no TK-85 dos pos- 
suidores de impressora (uma percentagem 
mfima dos proprietaries deste micro) na ga- 
rantia, ja* que a firma optou por fazer econo- 
mia anulando aqueles comandos? 

Ao contraYio da alegria que deveria ter 
sentido com a aquisicab de um novo micro, 
fico triste por me sentir ludibriado num di- 
reito que, creio, devo ter. No entanto, nab 
sei ainda o que fazer, se vender meu TIMEX 
conforme imaginava e continuar me sentin- 
do logrado ou passar o TK adiante e ficar 
satisfeito por nab ter compactuado com um 
modo de agir que acho errado. 

Finalizando, gostaria de dizer que este 6 
mais um motrvo para eu apoiar a abertura 
do nosso mercado de microcomputadores 
para as f irmas estrangeiras. 
Joab Henrique Pache de Faria 
Rio de Janeiro-RJ 

Caro Joao Henrique, aqui segue o posi- 
cionamento da Microdigital: 

"Gostarfamos de responderque o TK-85, 
fabricado pela Microdigital, possui uma in- 
terface para ser conectada a qualquer im- 
pressora paralela existente no mercado brasi- 
leiro como a Mbnlca, Grafix etc. 

Quanto d sua impressora, por se tratar de 
um produto importado, existem algumas 
modificacdes para funcionar no TK-85, o 
qual nao foi feito para funcionar na impres- 
sora que vocS possui: apoiamos os produtos 
nacionais e nao estrangeiros." 
Ricardo Tondowski 
Re/acoes Piib/icas 



TURMA DO COMMODORE 



Possuo um microcomputador Commo- 
dore 64 e um televisor Phillips cujo modelo 
6 R/20C/31 e o numero do chassi e KL8. 

Para que minha TV possa funcionar tam- 
bem no sistema de cores norte-americano 
(NTSC) o, conseqiientemente, meu compu- 
tador possa usar suas cores, eu precisaria de 
um cristal especial, o de numero 7,159090 
(cristal de frequencia dupla), que nao consi- 
go encontrar na minha cidade. 

Quern souber onde pode ser encontrado 
o referido cristal, e favor escrever para o 
endereco abaixo: 

Rua Joaquim Lfrio, 347 — Praia do Canto 
29.000 - Vit6ria/ES 

UsuSrios do Commodore 64: esta na ho- 
ra de fundarmos um Clube para troca de ex- 
periencias e de software! 
Maria Sylvia M. Abaurre 
Vit6ria-ES 

Envie suas correspondencies para: ATI — 
Analise, Teleprocessamento a Informatics 
Editora Ltda., Av. Presidente Wilson, 
165/gr. 1210, Centro, Rio de Janeiro/RJ, 
CEP 20030. Secab Cartas/Redacfo 
MICRO SISTEMAS. 




Com estes companheiros 
de escola,eu pa ssod e 
ano brincando. 



Olha pai, voce sabe que o maior sonho do pessoal 
da minha geracao 6 ter um dos micros da Microdigital, que 
sao os mais faceis de usar. Eles sao realmente fantasticos. 

Veja, por exemplo, o TK 85: ele pode me dar a maior 
forga no estudo, tern centenas de programas disponiveis, jt^ 05 
alem de ter o preco mais acessivel do mercado. 

Ja o TK 2000 e incrivel, pois roda o Multicalc, a 
versao Microsoft do Visicalc®, programa mais famoso em 
todo mundo. E pode intercambiar planilhas com 
computadores da linha Apple®. 

O TK 85 e TK 2000 ajudam muito, tanto quern 
estuda como quern trabalha, servindo para cadastrar 
clientes, controlar estoques, acompanhar o orgamento 
familiar, fiscalizar a conta bancaria, estudar matematica, 
estatistica, e tudo o que voce puder imaginar. 

Ah, compra um pra mim! Eu prometo que s6 vou 
brincar com ele quando acabar a ligao. 



GRATIS 

- Na compra de um TK 85 vocS ganha um livro "Basic TK" ou "Curso 
de Jogos" e os programas de TKALC e TKMAN. 

- Na compra de um TK 2000 II voce ganha o livro "Conhecendo e 
Utilizando o TK 2000" e os programas Multicad e Fliperama. 
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® Marca registrada da Visicorp. 



©Marca registrada do Apple Computer. 



A1ICRODIGIT4L 

computadores pessoais 



A imagem do usuario de computador fechado 

em seu laboratorio hoje e folclore, e quern quer saber mais 

so tern uma saida: enturmar-se 



Va pro cur ar 
sua turma em um 

clube de micros 



Uma comunidade de interesscs 
comuns que pode chegar ate 
o final do ano a centenas de 
milhares de pessoas nao con- 
seguira' avan9ar satisfatoriainente em 
conhecimentos se seus interesses agirem 
isoladamente. volume de informacSes 
necessarias para o melhor aproveitamen- 
to dos micros exige o intercambio entre 
os usua"rios. Em funca"o disso surgiram 
os clubes e, mais recentemente, entida- 
des com estrutura comercial reunindo 
grupos que se identificam por seus 
equipamentos, aplicacoes especi'ficas ou 
pelo simples gosto por jogos. Mas sem- 
pre com um objetivo comum, aprender 
mais. 

A partir de 1980, quando a Informd- 
tica cornegou a se desenvolver no pais, 
com o surgimento dos primeiros micros 
nacionais, dczenas de clubes foram for- 
mados, ao lado de uns poucos ja exis- 
tentes e que reuniam os pioneiros dos 
equipamentos pessoais, enta"o importa- 
dos. Deles, muitos ja - na"o existem. E 
dentre os que sobreviveram, alguns 
esta"o tomando novos rumos, deixando 
de lado o cardter de introdutores ao 
sistema de processamento de dados para 
ocupar uma posiga"o mais elevada: a 
de forum para debates a respeito de lin- 
guagens, sistemas e aplicacoes. Mas para 
os usuarios que esta"o comegando ainda 
existem clubes, os cursinhos e a eventual 
iniciagao oferecida por quern vende o 
equipamento. 

HOJE MICRO £ VOLKSWAGEN 

Apenas para exemplificar a antiga 
funcSo dos clubes, o medico Luis Ernes- 
to Pellanda, que fundou em novembro 
de 1979, em Porto Alegre, o Apple Clu- 
be do Brasil, lembra que o pessoal na 
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epoca mal conhecia um equipamento, as 
vezes o danificava por desconhecer 
praticamente o sistema de funcionamen- 
to. Em diversas ocasiOes, ele pr6prio foi 
acordado de madrugada por um socio 
de outro Estado para esclarecer duvidas 
sobre o motivo de um micro nSo funcio- 
nar. E afirma que a situacao hoje 6 
diferente: 

— Agora o micro e" um Volkswagen, 
qualquer um sabe fazer ele funcionar, 
bastando apenas ler o manual do fabri- 
cante. 

Por essa raza"o, Pellanda diz que a 
atividade dos clubes mudou um pouco. 
dele chegou a reunir 120 socios, mi- 
mero que esta agora em torno de 50, 
apenas no Rio Grande do Sul. Em Por- 
to Alegre o pessoal continua se reunindo 
periodicamente, na segunda terga-feira 
de cada mes em um restaurante, onde o 
proprietario cede espaco para a instala- 
ca"o de um equipamento e a conversa 
informal. 

Se antes os socios buscavam informa- 
gOes elementares a respeito do funcio- 
namento das mdquinas, quase todas 
importadas, hoje estao mais exigentes. 
Trocar pequenos programas 6 uma fun- 
ga"o cada vez mais esporadica. O tempo 
agora e utilizado em debates a respeito 
do hardware dos micros e de software 
ou uma aplicacao que resulte em melhor 
aproveitamento dos computadores, ja" 
que boa parte do clube e formada por 
profissionais liberais que empregam o 
equipamento em suas atividades. 

Da mesma forma como em Porto 
Alegre, o nucleo do Apple Clube do Bra- 
sil do Rio ]i atingiu um estagio em que 
seus intcgrantes estao buscando infor- 
magoes mais profundas e mantendo 
um relacionamento homem/mdquina 
em nivel mais avancado, garante Heitor 



Lira, seu presidente. Atualmente o clu- 
be reune 70 s6cios que pagam anual- 
mente 2,5 ORTN, dinheiro empregado 
em material para informar mensal- 
mente a respeito das reunifies. O nucleo 
do Rio funciona ha" cerca de tres anos e 
foi criado por sugestao de Luis Ernesto 
Pellanda. Suas reunifies is vezes sSo 
freqiientadas por socios de outros nii- 
cleos, como de Brasilia e Belo Hori- 
zon te. 

Em Santo Andr£, munici'pio da Gran- 
de Sao Paulo, Walmyr Garbin criou ha" 
cerca de sete meses o Apple Magic Clube, 
que ja" reune quase 30 associados. Eles 
contribuem com uma taxa mensal de 
CrS 30 mil, o que garante o direito de 
retirar dois programas pelo pen'odo de 
15 dias. Walmyr, que mexe com compu- 
tadores hi dois anos e da aulas de proces- 
samento de dados, diz que o clube, como 
e normal, esta ainda enfrentando dificul- 
dades para melhor orientagao dos asso- 
ciados sobre problemas tecnicos. O 
Apple Magic dispfie de quase uma cente- 
na de programas, estoque ampliado 
constantemente. Atem do emprestimo 
aos s6cios, o clube tambem troca e co- 
mercializa programas. 

Na Microcomp, em Sao Paulo, uma 
loja de micros, funciona outro clube, 
voltado especificamente para usuarios 
de equipamentos compativeis com Ap- 
ple. Os socios pagam uma taxa de 4 
ORTN para matrfcula e 1 ORTN por 
mes, com direito a retirar tres programas 
mensalmente, sendo dois aplicativos, 
que podem ficar com eles durante 30 
dias. 

COLOR, EM FASE DE EXPANSAO 

Os clubes Color, talvez por serem in- 
tegrados por usuirios que durante muito 
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tempo ficaram esquecidos no mercado, 
apresentam boa organizaga"o. E o caso 
de dois deles - Rio Color Clube e TRS- 
80 Color Clube — ambos do Rio, que 
agora estao em fase de fusa"o, formando 
6809 Color Clube, reunindo nada menos 
de 280 socios cadastrados, que pagam 
mensalidades de CrS 2 mil. 

O mais forte deles e o TRS-80 Co- 
lor Clube. Francisco Correa, que o vi- 
nha dirigindo, lembra que quando co- 
rnegou a usar seu micro importado da 
Radio Shack, passou a procurar alguem 
que tivesse equipamento similar para 
troca de experiencias. O primeiro deles 
foi Alfredo Troncoso, de Campinas. Aos 
poucos foram surgindo novos interessa- 
dos em compartilhar os conhecimentos 
que cada um obtinha com seus equipa- 
mentos. Com o langamento do Color 
64 da Novo Tempo, hoje fabricado pela 
empresa carioca LZ, e do micro da 
Codimex, foi crescendo o numero de s6- 
cios, que tende a aumentar mais ainda 
com o surgimento do CP-400 e do TKS- 
800, respectivamente fabricados pela 
Prologica e Microdigital. E diz: 

- Basta dizer que em 1984 foram 
vendidas 500 maquinas e a previsa"o da 
Prologica e negociar outras 10 mil ate 
o final de 1985. 

Basicamente como em outros clubes 
com reunifies periodicas, no TRS-80 
Color os socios trocam experiencias, ti- 
ram suas duvidas, promovem intercam- 
bio de software e suporte bdsico. Fran- 
cisco Correa diz que precisa se afastar 
como dire tor, passando a frequenta-lo 
apenas como socio, pois preve que com 
o incremento de associados nao lhe so- 
Drara tempo para a assistencia que pres- 
tava, desde redator do boletim bimensal 
editado pelo clube ate orientador para 
pequenos consertos. Correa, dono de 
uma vasta biblioteca de software para 
equipamentos Color, pretende dedicar 
mais tempo para aprimorar conhecimen- 
tos e mesmo comercializar seus produ- 
tos, pois acha que chegou tambem o 
momento de obter retorno financeiro 
para tudo o que investiu, numa ativida- 
de que a cada dia se torna mais profis- 
sional. 

O medico Diogenes Alvarenga dirigiu 
durante muito tempo o Rio Color Clu- 
be, tambem formado por usuarios de 
equipamentos originais Color e dos com- 
pativeis nacionais. Reunindo-se mensal- 
mente, os socios, que pagam uma taxa 
simbolica de CrS 2 mil por mes, discu- 
tem em um casarSo de Botafogo, onde 
funciona uma clinica mddica, novidades 
sobre software, trocam programas e su- 
porte bdsico. 

Mais recentemente o clube vein dedi- 
cando atengao especial para os sistemas 
de comunicagao. Um dos associados 
mais ativos nesse movimento e o medico 
Joao Roberto Amim, criador do CBBS 
do Amin. Foi a forma similar de ativi- 



dade entre um e outro que levou a fusa"o 
do Rio com o TRS num so clube. 

Em fevereiro, quando foram criadas 
as bases para o 6809 Color Clube houve 
a I Mostra de Usuarios de Computado- 
res, realizada no Hotel Gloria, no Rio, 
com a participagao de quase uma cen- 
tena de pessoas. E os objetivos da nova 
agremiagao sa"o reflexos dos dois clubes 
que o antecederam. Os socios com co- 
nhecimentos mais avangados continua- 
rao trocando ideias sobre hardware, blo- 
queios de maquinas e sistemas operacio- 
nais. Para os novos que forem chegando, 
garante Diogenes Alvarenga, havera 
sempre quern lhes de as primeiras no- 
gOes a respeito de processadores de tex- 
to, gerenciadores de bancos de dados, 



mentdrios em geral. Existe ate uma co- 
luna onde, atraves da publicagao de 
fotografias, ficamos conhecendo os cole- 
gas. 

Funcionando -k base de correspon- 
dencia por caixa postal, o Tiger nao co- 
bra mensalidade. Os associados colabo- 
ram como podem, ate mesmo enviando 
selos para atender as despesas, que nao 
sao poucas, como correio ecopias xerox. 
O clube aceita programas ineditos para 
troca por outros de interesse do asso- 
ciado, sem despesas. 

O Applemaniacos de Sao Paulo e ou- 
tro que funciona atraves de caixa postal, 
reunindo atualmente mais de 100 asso- 
ciados por todo o Brasil, com idades 
entre 14 e 60 anos, que exercem as mais 




Na Casa do Futuro, usuarios e orientadores no laboratorio 



planilhas eletronicas, programas de co- 
municagao, temas que tambem nSo fal- 
tam durante o encontro mensal. 

CHAMANDO POR CAIXA POSTAL 

E o usudrio que vive numa remota ci- 
dade da Amazonia? Ele ficara" isolado, 
carente de informagoes sobre software, 
aplicativos e sistemas? Claro que nao. 
Em fungSo desse usuario e de outros 
residentes em pequenas cidades do in- 
terior, e mesmo em grandes capitals, 
existem os clubes com atividades por 
correspondencia, chamados pelas caixas 
postais. E funcionam bem. 

Numa linha bastante informal, existe 
no Rio o Tiger Clube, voltado para a 
linha TRS-80; segundo Sergio Macha- 
do, seu idealizador, o objetivo do Tiger 
e promover o encontro de usudrios do 
CP-500, que desenvolvem programas e 
aplicativos isoladamente. fi Machado 
quern diz como funciona o Tiger Clube : 

— £ distribufdo mensalmente um 
boletim onde sa"o dadas valiosas infor- 
magOes e dicas sobre novos programas, 
produtos, servigos e aplicagoes. O bole- 
tim esta aberto aos associados para que 
possam publicar anuncios, artigos e co- 



variadas profissOes, nas quais nem sem- 
pre o computador e uma ferramenta de 
trabalho. Um clube em que os associa- 
dos se comunicam com muito humor e 
cada um deles utilizando um pseudoni- 
mo, ou nome de guerra, como prefere 
dizer seu presidente, o Capitao Gancho. 
No Applemaniacos nao existe taxa de 
inscrigao, apenas mensalidade de 1 
ORTN com vencimento no dia 15. 

E o bom humor nao tira, aparente- 
mente, a seriedade do clube, que como 
beneficio ao associado oferece uma bi- 
blioteca de manuais para utilitarios 
(criados pelos associados), arquivo de 
software estrangeiro, disquetes com 
material especifico para programagao, 
tais como Double-Take, compiladores, 
sub-rotinas diversas etc. 

Os servigos oferecidos pelo Apple- 
maniacos tern pregos variados, mas se- 
gundo o Capita"o Gancho, menores 
que aqueles normalmente oferecidos por 
software houses. A mensalidade paga 
garante o recebimento de um boletim 
informando sobre as novidades nacio- 
nais e estrangeiras para o Apple; uma 
segao de perguntas e respostas sobre 
soft e hardware; artigos acerca de apli- 
cativos muito utilizados como Magic m 
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Window, Visicalc, dBase II;classificados 
para venda, compra e troca de equipa- 
mentos e perifericos; dicas sobre formas 
de copiar programas bloqueados; criti- 
cas sobre programas, livros e equipamen- 
tos, entre outros. 

LOGICA SINCLAIR NO CIRCUITO 

Quem tern um equipamento de logi- 
ca Sinclair tambem nao fica perdido, 
mesmo residindo em cidades distantes 
dos grandes centros. Para esses usuaiios 
funcionam diversos clubes, atendendo 
tambem por correspondencia, na base 
da troca de informacoes e programas. 

Um exemplo de intensa biblioteca de 
software est! no Micro Games, um clu- 
be sediado no municipio mineiro de 
Joao Monlevade, se bem que funcionan- 
do mais na base de troca ou venda de 
programas. Paulo Wagner, que dirige o 
Micro Games com Mdrcio Oliveira, in- 
forma que o clube tern hoje um acervo 
de 350 programas, importados e nacio- 
nais, resultado de compras e trocas, nu- 
mero que vai aumentando mensalmen- 
te. Fundado em dezembro de 1983, 
apenas no ano passado teve uma despesa 
de Cr$ 400 mil em selos, fitas e novos 
programas. Os associados do Micro Ga- 
mes, que nada pagam de mensalidade ou 
inscricao, podem trocar jogos em alta re- 
S0IU920 e utilitdrios com o clube ou ad- 
quirir, escolhendo em uma lista, dez 
programas por CrS 19 mil, sem outras 
despesas pelo correio. E Paulo Wagner 
garante que as encomendas sa"o enviadas 
com seguranca, por remessa registrada. 

Com uma listagem de aproximada- 
mente 800 socios no Brasil e 350 no ex- 
terior, segundo seu presidente Joaquim 
Pedro de Oliveira Martins, funciona no 
municipio flumiriense de Pirai o Grande 
Circuito Sinclair. Seus associados nada 
pagam e recebem um boletim cuja edi- 
cao e financiada pela venda de progra- 
mas desenvolvidos pelo clube. 

O Grande Circuito Sinclair na"o pro- 
move reunites, trabalhando em sistema 
de caixa postal. Seu boletim cont£m 
informacQes a respeito de soft e hardware 
dos equipamentos, dicas, programas e 
uma seca"o de intercambio. 

LOJAS, PONTO DE ENCONTRO 

Outra especie de ponto de encontro 
para proprietaries de micros sa"o as lojas. 
A Filcres, em Sao Paulo, do grupo da 
Prologica, promove reuniSes aos s&bados 
com usua'rios do CP-500. Eles freqiien- 
tam ali ha" dois anos, comparecendo em 
midia dez hobbystas, professionals de 
vanas dreas, a maior parte na"o ligados 
diretamente a Inform^tica. 

Miguel Sima"o, engenheiro eletronico 
ha" 20 anos, e um dos integrantes do clu- 
be da Filcres e la" chegou atravds de um 
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Didgenes Alvarenga, Presidente do Rio Color 
Clube 

amigo, passando, desde entao, a se apro- 
fundar em conhecimentos de hardware 
e software. Recentemente os integrantes 
do grupo promoveram um curso de 
Assembler, com orientacSo dos pr6prios 
membros. 

No Rio, a Micromaq, uma loja de 
equipamentos no centro da cidade, fun- 
ciona no mesmo esquema. Aos sabados 
os fregueses se reunem para falar de no- 
vidades, programas e trocar jogos para o 
Color, num hdbito que se repete desde' 
1983, lembra Edinho, gerente da loja, 
que faz questa"o de ressaltar que na"o e 
o encontro apenas de garotos, mas de 
gatinhas e coroas, que vem ate de Sao 
Paulo. 

Para Edinho, a reunia"o e" boa para a 
loja e util para os freqiientadores, que 
ali conhecem novos programas e artigos 
importados, como light-pen, e chegam a 
participar ate de improvisadas palestras 
sem ter que desembolsar qualquer im- 
portancia a titulo de mensalidade. Ele 
lembra que ha" £pocas em que aumenta o 
niimero de freqiientadores, como no in- 
verno. "No verao o pessoal foge para a 
praia, mas a mddia de frequencia fica 
em torno de 10 a 15 pessoas por saba- 
do", diz Edinho. 

Reunindo em Sao Paulo usuanos de 
Apple e CP-500, ha" um ano existe o 
W. F. Soft Clube, mantido pela loja do 
mesmo nome, que vende micros novos 
e usados de todas as linhas. Mediante 
uma taxa inicial de 2 ORTN e mensali- 
dade de 1 ORTN, o associado passa a 
ter o direito de retirar mensalmente cin- 
co programas, entre jogos e aplicativos. 
Eles podem permanecer com o associa- 
do durante 30 dias. Caso haja interesse 
de posse definitiva, a W. F. faz a copia 
para o associado. O acervo do clube con- 
ta com 200 programas de cada uma das 
linhas, muitos deles desenvolvidos pela 
empresa, que atua tambem como 
software-house. Outros sa"o de autoria 
de associados e os restantes comprados 
pela W. F. com a arrecadacSo de mensa- 
lidades. 

ESTAO CHEGANDO MAIS 

Instalada numa ampla casa do Hu- 
maita\ bairro de Botafogo, no Rio, fun- 
ciona a Casa do Futuro, reunindo ativi- 
dades de lazer com outras de aspecto 
profissional. Ela possui dois laboratories 



onde esta"o instalados 23 micros e um 
mini Cobra 530. Seu esquema e pratica- 
mente o mesmo de um clube. Parte dos 
freqiientadores 6 formada por s6cios 
que pagam uma taxa para utilizacao de 
hardware ou hardware /software em pes- 
quisa, desenvolvimento de programas ou 
analise critica com assistencia de ana- 
listas de sistemas. 

Na a"rea de cursos, oferece opcOes pa- 
ra introducao ao processamento de da- 
dos, BASIC para criancas e BASIC 
avancado, analise de sistemas, lingua- 
gens, introducao a CP/M, DOS, Unix, 
dBase He automa?a"o de escrit6rios pa- 
ra executivos e secretanas. 

Na £rea estritamente comercial, a Ca- 
sa do Futuro presta servicos para empre- 
sas rodando software para folha de pa- 
gamentos, controle de contas a pagar e a 
receber, cadastramento e mala-direta. 
Al6m disso possibilita a comercializa- 
ca"o de programas de associados ou na"o, 
funcionando como uma espdcie de 
software -house. E ja" esta fornecendo 
um curso de BASIC por video-cassete. 
Outros servicos esta"o sendo organizados, 
como cursos para pequenos grupos de 
uma so empresa, treinamento de pessoal 
na 4rea de introducao e processamento, 
alem de formar tecnicos para a manu- 
ten93;0 de equipamentos. 

A parte desse lado comercial, a Casa 
do Futuro funciona mesmo como um 
clube, onde os freqiientadores encon- 
tram espaco para trocar id&as, progra- 
mas, dispSem de biblioteca para aumen- 
tar seus conhecimentos, de livraria e loja 
de suprimentos, tudo isso com assisten- 
cia adequada, informam Gilberto Mala- 
mut e Lia Taliberti, diretor e uma das 
orientadoras, respectivamente. 

Praticamente na mesma linha da Casa 
do Futuro do Rio, esta funcionando em 
Sao Paulo o Clube do Micro, criado com 
o objetivo de atender, tambem, aqueles 
que nao podem ou na"o querem investir 
na aquisicao de um equipamento. Mauro 
Costa Loureiro, gerente da empresa Em- 
brasoftware, que mantem o Clube do 
Micro, diz que la o usudrio tera" oportu- 
nidade de utilizar o computador por um 
preco acessfvel, operando o sistema com 
seus proprios disquetes, em forma de 
time -sharing. 

Para quem esta se iniciando na Infor- 
mdtica, o clube mantem cursos de intro- 
du$a"o ao processamento de dados. Para 
os ja iniciados, ha cursos de Magic 
Window, dBase II e Visicalc, entre ou- 
tros. O clube esta aberto a pessoas fi'si- 
cas e juridicas, com uma taxa de inscri- 
qSo para ter direito a um titulo e co- 
brando mensalmente uma taxa de manu- 
ten?ao, permitindo o uso dos equipa- 
mentos por duas horas didrias. A cada 
hora excedente o associado paga uma 
quantia extra. Como vantagem, alem/^ 
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Mesas para terminais 



de video 

Cr$ 



Na compra de 

CrS 1.000.000 

voce ganha um 

aparelho que duplica a 

utilizapao do diskete 



449.850 



• Fabricagao pr6pria 

• Cores discretas 

• Desenho moderno 

• 5 modelos 



COMPUTADORES 

• Suprimentos 

• Perifericos 

• Impressoras 

• Drives 

• Placas de Expansao Interfaces 

• Cabos 



Conosco voce encontra tambem, tudo o mais que 

precisa em video-game, som, telefonia, 

das melhores marcas e procedencias, e mais: 

VIDEOS 

• Transcodificagao todos os sistemas 

• Fitas: VHS - BETA-U-MATIC e para limpeza de cabega 

• Baterias p/2 e 8 hs. 

• lluminadores 

• Cabos de extensao p/ cameras 

• Bolsas p/cameras e videos 

• Telao 



Acess6rios nacionais e importados 
Suporte p/ TV teto ou parede 



BTC" 2001 



Curso de ingles em video-cassete 

Servigo expresso remetemos para todo Brasil 



ALTATECNOLOGIA 
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BRASILTRADE CENTER 



Av. Epitacio Pessoa, 280 (Esq. de Visconde de Piraja), Ipanema - Rio de Janeiro - CEP 22471 - 259-1299 

Rua da Assembleia, 10 - Loja 112 (Ed. Candido Mendes) Rio de Janeiro - (021) 222-5343 

Av. das Americas, 4790 - Sala 615 (Centro Profissional Barra Shopping) Rio de Janeiro - 325-0481 

TELEX (021) 30212 BTCP 
Fabrica: Rua Silva Vale, 416 - Cavalcanti - RJ - Tel.: (021) 592-3047 



VA PROCURAR SUA TURMA... 



Os clubes e empresas citados nesta reportagem podem ser contatados por 
enderefo, telefone ou caixa postal, que se seguem: 

SAO PAULO 

• Clube do Micro - Rua Cardoso de Almeida, 23, conjunto 74, CEP 05013. 

• Filcres - Rua Aurora, 165, telefone 223-1466, CEP 01209. 

• Niicleo da Sharp - Telefone 21 1 -7022, Ramal 404. 

• W. F. Soft Club - Rua Ministro Godoy, 283, telefone 263-0039, CEP 
05015. 

• Apple Clube Microcomp-Av.PedrosodeMorais, 1.234, telefone 8 14- 7623 
e815-7481,CEP05420. 

• Clube dos Applemam'acos -Caixa Postal 54.131, CEP 01 296. 

• Apple Magic Clube - Rua Sao Camilo, 21 , Santo Andre, CEP 09000, tele- 
fone (01 1 ) 447-9034. 

RIO DE JANEIRO 

• Apple Clube do Brasil (Heitor Lira) - Telefone 285-4350 (a noite). 

• TRS Color Micromaq - Rua SetedeSetembro, 92/ 106, telefone 222-6088. 

• 6809 Color Clube (Diogenes Alvarenga) - Telefone 226-6786. 

• Casa do Futuro - Rua Macedo Sobrinho,46, Botafogo, telefone 266-3447. 

• Grande Circuito Sinclair - Caixa Postal 28, Pirai', CEP 27200, RJ. 

• Tiger Clube (Sergio Machado) - Caixa Postal 23.095, Rio de Janeiro, RJ. 



RIO GRANDE DO SUL 

• Apple Clube do Brasil (Ernesto Pellandaj 
23-0577. 



- Telefone (0512) 21-9203 e 



MINAS GERAIS 

• Micro Games (Paulo Wagner) - Av. Getulio Vargas, 4.726, CEP 35.930, 
Joao Monlevade, MG. 



do equipamento, esta"o disponiveis qua- 
se 100 opcSes de software rodando em 
sistemas DOS e CP/M. 

CONTATANDO POR MALA-DIRETA 

Outra forma de enturmar os usuarios 
e desenvolvida pelas fabricas, que tern 
seus proprios clubes, como a Prologica, 
a Microdigital e HP e a Sharp, entre ou- 
tras, funcionando por sistema de mala- 
direta, em que os clientes recebem todas 
as informacOes sobre novidades em ter- 
mos de software e perifericos para me- 
lhor utilizacao dos equipamentos. 

Em Sao Paulo ha ainda a Compucen- 
ter, uma empresa que organiza cursos 
diversos na aiea da Informatica. Nao se 
pode dizer que ela tenha um clube, mas 
de alguma forma ajuda os usuarios de 
micros. Os interessados se inscrevem em 
sua lista de associados e passam a rece- 
ber gratuitamente um jornalzinho cha- 
mado "Abacus", que publica informa- 
90es gerais acerca do assunto. O Clube, 
denominado Clip, na"o promove encon- 
tros ou reuniQes. m 



Tex to: Bern' Lima Pereira 




SOFTWARE 




novas fitos com 
emocionantes para voc&l 



PARA EQUIPAMENTOS COM LOGICA SINCLAIR 



1. VALKIRIE 

Pllole nave 
Valllrlo <• parla 
cm busca dp do* 
caslelos perdidos. 
(Exclusividade 
Cit»rrn.\ por 
DivmoC.R. 
Ultao). 
E mals: 
GUERWLHA 
COSMICA 
e ZOR. 



4. DEFENSOR 3D 
I 




2. MERCADOR DOS 

SETE 

MARES 

NoseculoXIX 
voc* percorre o 
mundo a bordo 
de h?u iiavio, err 
buira de bona 





E man: OBERT 

(Exclusividade 

Cibcrrm, 

por DivtnoC.H 

ASSALTO. 



CORRIDA MALUCA c PIHBALL 
(Exclunvidado Ciborne, por Divin 
C.R. U.lao). 

5. ROT I - PLUS 

• S.O.G 
Sutrrma 

operational, con 
linquaqem 
gralica. Inlimtas 
opcoos do uso. 
Tolalmenle em 
codtqo do 

(ExclusivtdadeCibtTne, porj Maqal) 

• MERGE 

Posstbihta a |uncao de varies 
i ao* outros 



-' 



3. SUBESPAgO 

Imptacavel 

cacada espacial 

Totalmenlo 

qralico 

E mam 

CAVERNASDE 

MARTE 

(Exclusividade 

Ciberne. por 



6. APLIC1 

• COMPCALC 

Rdpido. eflc.enle n totnlmcnte em 
c^diqodo mriquir.3 A molhor versao 
do i* Idmow Vui-Calc. 

• COMP ARC 

Proqram.1 qcrador do arquivos. 
ToMlrwnloem codiqo de macjuina 
Modolt* ftchas o at acossc pelo 
campo rjuo quiser 

• COMP TEXTO 

f> fact) rnanipuiagao, to.almonto em 





GARANTA 

SUA MS 

TODO MES! 



ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTIR 
DO NP 20. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOCE NAO QUEIRA CORTAR 
AREVISTA): 



Nome 



E mpresa 

Prof isscfo/Cargo 

Endereco para remessa. 
Cidade 



CEP. 



Estado. 



Assinatura Anual: □ Micro Sistemas 



Cr$ 50.000,00 



GRATIS! 6 NUMEROS ATRASADOS. 



Preencha um cheque nominal A ATI Editora Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ, CEP 20.030 - Tels.:'(021) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, Sao Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 
Seu recibo sera enviado pelo Correio. 
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HORA 




HORA 




HORA 




HORA 




HORA 



O computador e uma maquina f antastica que 
trouxe murtos benef icios ao homem . No en- 
tanto, para quern tern que Hear sentado diante 
de urn terminal de video por horas a fio, o com- 
putador esta gerando alguns problemas. 
Manter a vista f oca da muito tempo em carac- 
teres pequenos e luminosos, alem de preju- 

dicara 
visao, 
cansa. 
causa 
dor-de- 
cabeca 
e irrita- 
gao. 
Para 
quern 

usa oculos comuns entao. os efertos aumen- 
tam por causa dos reflexos criados nas lentes . 
Agora , todos esses problemas tern uma solu- 
cao, Sao os oculos Videolux das Oticas Flumi- 
nense . Os oculos Videolux . alem de possui- 
rem lente anti-reflexo. tern uma composicao 
especial 
que filtra 
a lumino- 
sidade 
prove- 
ntente 
do termi- 
nal, au- 
mentan- 

do a nitidez dos caracteres e proporcionando 
maior descanso para a sua vista . 
Existem 3 tipos de lentes diferentes, uma 
para cada tipo de terminal, 
Os oculos Videolux podem ter ou nao grau e 
sao encontrados em modelos masculinos e fe- 
mininos . A venda em todas as filiais das 6ticas 

Flumi- 
nense, 
os oculos 
Videolux 
farao 



^ 









voce 
chegara 
ultima 
hora do 
seu dia 

de trabalho se sentindo muito melhor . 

Proteja-se com os oculos Videolux* 



Ocuios 

UIDE0 




£ 



oticas 
Fluminense 

SatlSOlhosmerecern. 



Niteroi : Rua da Conceigao, 36 • Casteio: Av . Franklin Roosevolt , 84 
• AvonkJa: Av. RioBranco, 1 77 •Copacabana; Av N- S. tic Copai a- 
bana. 1 058 • Ipancma: Rua Viscondo de Piraja. 287 • FAtima; Rua do 
Riachueto, 247 • Madurotf a: Av . Mln . Edgar Rontcro. 91* Ttfuca: Rua 
CondM do Bonfvn , ?. \ 4 • Saana Pma: P^a . Saerre Perto , 45. 




Microcraft 
entra nos 16 Bits 



Depois do sucesso da Craft II, 
compati'vel com Apple, a Micro- 
craft investe agora rta linha 16 bits 
lancando Craft XT, compati'vel 
com o modelo XT do PC da ISM. 
O novo equipamento possui me- 
mbria inicial de 256 Kb de RAM, 
podeida expandir-se ate 512 Kb 
airavfrs de uma placa que a Micro - 
croft tambem jo colocau no mer- 
cado. Craft XT possui Oito slots, 
sen do um para placa de vfdeo. ou- 
tro com tres safdas na mesma pla- 
ca (joystick, serial e paralelaJ. e OS 
outros seis disponfveis para ex- 
pansa*o, Em sua configurecfo ba- 
sica o Craft XT vem com UCP 
com 256 Kbytes de RAM, vfdeo 
de fosforo verde e dois drives 
para disquetes de 5 1 14", com op- 
cional para Winchester, o sou pre- 
co eteve ficar em torno de 1.000 
ORTN, A >doia da Microcraft e 
manter seu oquipamento a urn 
preco abaixo dos concorrenies a 
exemplo do lancamento do Craft 



II, pois segundo Celso Tanaka, ge- 
rente comercial, a empresa inves- 
ts sempre pensando no futuro. O 
Craft XT foi dosenvolvido em 
tempo recorde, tres meses. e o in- 
vestimento for de 1 bilha"o e 200 
milhoes do cruzeiros, Ssrao pro- 
duzidas en i re 60 e 80 unidades 
po<- me*, 

Outra navidade de Micocraft 
d o Crafi AT, que na verdade 6 o 
prftprfo Craft II Plus com novo 
design, memofia Inicial de 64 Kb, 
ja trazendo embu lidos control a- 
dor de disco, plsca CP/M, fonts 
que suporia Winchester e urn dri- 
ve. O AT possui ires UCP* (6502, 
Z-80A e 8035], Se o usuario for 
comprar todos esses ace*s6rios 
para incorporar oo Craft II seu 
custo sera de aproximadamente 
tO a 12 mifhdes de cruzeiros, en- 
quanto o modelo AT custa por 
volta de Cr$ 8 mil noes da cruzei- 

TOS. 



Modems da Tropical 

A Tropical Srstemas Ltda. esta oferecendo os segumtes mo- 
dems: Banda Base TS - I9200;e TS - 300, TS - 19200 ope- 
ra sincronamente, nos modos duplex e semi-duplex em ligacdes u 
quatro fios e semi'duptex a dois fios na velocidade de ate 19,200 
BPS. O TS — 300 c um modem assfncrono e analogico dastinado 
a rransmiss&o e recepcao de dados binaries em I in has pnvativas 
b/ou redo comutada. Este modelo opera ate 300 BPS. 

O endereco da Tropical e: A v. Antonio Abraao Caran, 430, 
3? andar. Beto Horizon te- MG, CEP. 30000. »I.:1031 J 44 1 -1636. 



Jogos para 
o CP-400 Color 



Mais 54 jogos estio disponfveis no mercado para os usuarios do CP- 
400 Color, airaves de 18 fttas lancados recontemento peta Kristian Ele- 
tronica Ltda. Cada fita vem com tres jogos o entre as navidades astao 
Zaxxon, Demon Seed c Roboty; Patrulha Lunar, Cave Hunter e Musi- 
cas Espaciais; Tennis, 8'Ball e Demon Dancer; Xadrez, Damas e Black- 
jack e Packeiman, Gobbler e Scarf man. Outras informacfies podem ser 
obtidas na Rua Gonzaga Bastos, 112 ou peta telefone (021 r 268-8249. 




TRS Color facilita 
acesso a comunidades 



Os usuaVios de micros da linha 
TRS 80 Color, como o Color 64 e 
o CP 400 ja contam com a interfa- 
ce RS 232-C embutida na configu- 
racao basica. Isso diminui conside- 
ravel men te o custo nacessario 
para se ligar as comunidades. A 
LZ Equipamentos Eletronicos 
aconselha inclusive que o usudrio 
adquira um modem que possa 
operar em varias velocidades dife- 
rcntes, tanto para transmissao 



quanta para recepca'o, o que pos- 
sibilita tambem o uso do sistema 
Videotex to. Ainda para os usua- 
rios dessa linha. a Micromaq e a 
LZ comercializam um software 
de origem americana que per mi- 
te a comunicacao com aquelas co- 
munidades, bem como com o CB- 
BS do Amim, que funciona em sis- 
tema semelhente, diairememe, das 
20h as 24 h. em sistema Boil, pelo 
telefone <02 II 246-2938. 



Area Grafica em Expansao 



Depois de lancer o VersaCad, 
sistema que permiie a utilizacab 
de tecnicas de Computer Aided 
Drafting, a Comiero Microcom- 
putadores coloca agora no mer- 
cado ma is dois produtos volta- 
dos para a area grafica. Sa"o eles 
uma mesa digital izadora e um plot- 
ter, A mesa modelo PD 1030 que 
osta sendo comercial izada pela 
Comiero e de f atari ca$So da STI 
— Sistemas de Teiecomunicacoes 
e Inlormaiica, a pode ser Itgada 
a qualquer computador atraves 
de Interface serial RS 232-C. De- 
senvolvida para ser utilizada em 
sistemas de medio e poerucno por- 
te a mesa digital izadora PD 1030 
pode ser ligada a micros das linhas 
Apple e PC e tarn como principal 
aplicaca'ci a entrada de dados gri- 
ficos. O plotter lancado pela Co- 
micro foi desenvolvido pela Digt- 



con e se encontra disponp"vel nos 
tamanhos A) e A2, am bos com 
uma pena. A Ligacdo do plotter 
com os sistemas de computador 
6 feita tambem atraves de inter- 
face RS 232-C, Parautilizacao tan- 
to da mesa quanta do plotter sSo 
necessarios programas de su parte 
com rotinas especrficas para o uso 
dosses equipamentos, Para isso a 
ideia da Comiero e de comercia- 
lizar sob a forma de pacote com- 
pleto o microcompu tador de 16 
bits compau'vel com PC da IBM, 
o programa VersaCad, que possui 
as rotinas necessaries, a mesa e o 
plotter. So vendidos separadamen- 
te o prego da mesa digital izadof a 
e de 305 ORTN, e o plotter custa 
1.100 ORTN. Ourras informacSes 
podem ser obtid3s na prfipria Co- 
micro pelo lei.: (011) 853-2273 
Sa"o Paulo. 



Seguran^a com uma so camera 



O Centro de Informatics Mictomaq, que no Rio representa a Fqio- 

tica, de Sao Paulo, esta promovendo o Jancamento do equipamento do 
seguran<pa para condom fnios denominado CSTV. A empresa in forma 
que os dez primeiros condom fnios interessados receberSo a visita da en- 
genheiros da Fotfttica para instalaca"o, em cara"ter de experiencia. por 
dcz dias, daquele equipamento. 

No CSTV 6 empregada uma camera de TV na portaria dos condomf- 
nios e os moni tores sSo os prdprios aparelhos de televisa'o de cada apar- 
tamento, operando num canal previamente determinado. A instalacSo 
tern seu custo dividido em cinco parcelas, sem Juros. A Micromaq tam- 
bem desenvolve outros projetos do seguranca eletr6nica para resrdencias 
e empresas. Outras informacSes na RuaSete deSatembro, 92, loja 106, 
telefone (02 1> 222^088, 



Filtros 

de linha 
JG 
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A JG Eletr6nica, desde 1980 
suprindo as necessidades da indiis- 
tria de informatica nacional e es- 
trangeira, coloca agora ao alcance 
dos usuarios de microcomputado- 
res e perifeYicos a solucao para o 
problema da Interferencia de Ra- 
dio Frequgncia (IRF). 

Se o seu micro apresenta corn- 
portamento por vezes estranho, 
"congelando" o vfdeo ou "rese- 
tando" espontaneamente, voce 
provavelmente estara sendo vfti- 
ma de IRF causada por transien- 
tes e comutacoes na sua rede de 
alimentacao, devido a outros equi- 
pamentos a ela ligados. Da mesma 



forma, o seu micro estara" certa- 
mente causando interferSncia em 
outros aparelhos, tais como televi- 
sores e equipamentos de som e de 
radioamador. De fcicil instalacao, 
entre o equipamento e a rede de 
alimentacao, e de efici§ncia com- 
provada, os filtros de linha JG es- 
tab disponfveis em va>ios mode- 
los, com capacidade variando des- 
de 1 A ate" 30 A. 

Escreva ou telefone solicitan- 
do cataMogos ou detalhando o seu 
problema. O endereco da JG Ele- 
tronica e rua Braga 1 8, CEP 21 01 1 , 
Rio de Janeiro — RJ, e o telefone 
e (021) 280-6538. 



Edisa Entrando em CAD 

Depois do contrato para transferencia de tecnologia dos siste- 
mas HP-3000, a Edisa pretende firmar um novo acordo com a 
Hewlett Packard para adquirir tecnologia na a>ea de CAD (proje- 
tos assistidos por computador). Ja esta" sendo examinado na Se- 
cretaria Especial de Informatica projeto da Edisa para fabricaca*o 
de tres sistemas de CAD: ED-902, ED-920 e ED-950, alem de um 
sistema para desenvolvimento de software e hardware para mi- 
crocomputadores. Para a produpao desses equipamentos estao 
previstos investimentos de aproximadamente 2 milhoes e 700 mil 
ddlares. 

A Edisa fechou o ano de 84 com um faturamento de Cr$ 43 
bilhdes e 500 milhoes de cruzeiros, e para este ano os pianos da 
empresa sao de aumentar em 48% este valor,, com os microcom- 
putadores representando cerca de 80% do total a ser faturado. 



Transbsc 3 da Scopus 

A Intertec informa que lancou no mercado mais uma versao, a Sco- 
pus, para o Transbsc 3, que segundo seu gerente de Desenvolvimento, 
Ellis Feigenblatt, apresenta duas inovaqoes: aumento da taxa de trans- 
missao de dados e versa"o movida a interrupcao. Com a versao Scopus, 
em 4800 bps, e possfvel avancar para a transmissao de 16 Kb por minu- 
te Segundo Ellis, a versao movida a interrupcao tambem e inedita, pois 
a comunicacao entre o micro e o mainframe na~o sofre alteracao quando 
o primeiro estd acessando um disco. 



Nova Oportunidade 
em Informatica 

As pessoas com deficiencia visual tern agora uma nova oportunidade 
na a>ea de Informatica. Trata-se do Audiodata, um sistema inedito de- 
senvolvido por Assis Moacir Duch, 37 anos e cego desde os cinco anos 
de idade. Acoplado a um terminal de dados ou a um microcomputador 
do tipo CP-500, da Prol6gica, o Audiodata transforma os numeros, le- 
tras e sinais gr^ficos em notas musicais. O sistema e" composto basica- 
mente por uma famflia de 34 sinais em escala musical natural. O Audio- 
data pode ser fabricado a um custo de cerca de CrS 300 mil cruzeiros e 
6 facilmente adaptavel a qualquer sistema de dados. O sistema pode ar- 
mazenar ate oito tabeias de codigos de entrada, entre as quais os siste- 
mas ASC II, o Ebcedc da IBM e o TTY, comum aos telex. A Embratel, 
que deu apoio a Assis para o desenvolvimento do Audiodata, esta" reali- 
zando em conjunto com a Secretaria de Educacao de Sao Paulo o pri- 
meiro curso para deficientes visuais com o sistema Audiodata. 



MICRO SISTEMAS, abrif/85 



Agora, os IBM PC e Compatweis 
falam portugues! 







A PC Software e Consultoria criou, para seu micro 
da linha IBM PC, ABC. A maneira mais facil, rdpida 
e oraanizada de escrever. 

ABC e um poderosfssimo processador de textos, 
com todos os recursos dos melhores programas 
do genera no mundo. Negrito, subscrito, sobrescrito, 
paginacao automdtica, caoecalho, notas de pe-de 
pdgina e muito mais. 

ABC e compati'vel com lotus l -2-3, Visicalc, 
Supercalc e dbase II. E fadlimo de usar. Os principais 
comandos sao acessadospor 
meio de uma unica tecla. E voce 
recebe ainda um "Tutor" e disco 
para praticar o manuseio do ABC. 

Mas, o melhor de tudo e que 
ABC fala sua lingua. Com cedilha, 
acentos e todo o resto, no vfdeo, 
impressora ou mdquina de 
escrever eletronica. 

E o ABC tern ainda todo 
o suporte da PC, a empresa de 
maior experiencia em treinamento, 
consultoria e desenvolvimento 
e software para compatfveis 
com IBM PC 

PC Software e Consultoria Ltda. 
Almirante Barroso, 91 Gr. 1102 - Rio 
Tels.: (021) 220-5371 e (021) 262-6553 

Repres. em SR: Execplan 

Rua Fre' Caneca, 1407 - 10? andar 

CEP: 01307 

Tel.: (Oil) 284-0085 
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Lentes protegem contra 
a luz dos monitores 



O CBBS da BBS 



AsOticas Flu- 
minenses coloca- 
ram recentemen- 
te no mercado os 
6culos Vfdeolux, 
criadosespecifi- 
camente para 
quern trabalha 
em terminals de 
computadores. 
As lentes, desen- 
volvidas pelo 
Centro de Estu- 
dos da American 
Optical, prote- 
gem osolhos, evi- 
tando a fadiga vi- 
sual t<7o comum as pessoas que tra- 
balham a frente de computadores. 
As lentes variam de acordo com a 
cor de cada monitor, sendo forne- 
cidas em tres tons e adaptaveis a 




A Biblioteca Brasileira de Soft- 
ware, que funciona em Sao Paulo 
prestando servico de aluguel de 
programas, esta inaugurando o seu 
CBBS (Computer Bulletin Board 
Service). AI6m da comunicacao 
entre seus usuarios, o CBBS possi- 
bilita tambem a utilizacao dos 
programas que constam em seu 
banco de dados. Este banco 6 ali- 
mentado principalmente com pro- 
gramas de domi'nio publico e, se- 
gundo o gerente da BBS, mensal- 
mente deverao ser colocados no 
banco de dados seis novos progra- 
mas. Inicialmente o CBBS conta 
com cerca de cem programas para 
as linhas Apple e TRS-80 que es- 



tao armazenados em um Apple 
com dois drives que funciona com 
um operador para quando 6 neces- 
sa>ia a troca de disquetes. O aces- 
so ao CBBS pode ser feito a {raves 
do mesmo kit de comunicacao 
para acesso ao projeto Ciranda"o, 
da Embratel. Inclusive a pr6pria 
BBS ja" comercializa esse kit que 
6 composto pela interface RS 232, 
o modem e o software que servirS 
para ambos os bancos de dados. A 
Biblioteca Brasileira de Software 
fica na Av. Brigadeiro Faria Lima, 
1.390 Cj. 82 Jardim Paulistano, 
Sao Paulo e os telefones sab: 
(011) 8136407 e 210-1251. 



qualquer g.au. Outros esclareci- 
mentos poderao ser obtidos na 
Rua Tenente Possolo, 33, Rio, te- 
lefone(021) 224-3377. 



Novidades da SID 



Os microcomputadoresSID da 
seYie 3000 \& podem operar como 
terminals de entrada de dados. A 
empresa estS colocando no merca- 
do o software STC — Sistema de 
Transcricao de Dados, desenvolvi- 
do pela Minimicro. A comerciali- 
zacao do STC 6 feita pela prbpria 
SID e o programa esta sendo ofe- 
recido am disquetes de 3" ou de 
5 1/4" pelo preco de 50 ORTN. 

E os terminals de caixa auto- 
mata SID 1600, conhecidos dos 
clientes do Bradesco e dos bancos 
que compSem o 24 Horas, agora 
falam. Foi incorporado a essas 
mgquinas um dispositivo de orien- 



taca*o por voz que 6 acionado pelo 
programa aplicativo do computa- 
dor central toda vez que um sen- 
sor detectar a aproximacao de 
uma pessoa. O novo dispositivo 
incorporado aos terminals de cai- 
xa automatica pode reproduzir 16 
frases. Ainda na 3rea de automa- 
cao bancaria e automacao comer- 
cial, a SID colocara" em operaca"o 
experimental em meados do ano 
seus terminals ponto de venda. O 
projeto do terminal foi concebido 
com base na id^ia de modularida- 
de, seguindo parametros def inidos 
pela Associacao Brasileira de Au- 
tomacao Comercial. 



Administrate* de Materiais 

A Diacon Informatica, empresa de consultoria, treinamento e de- 
senvolvimento de sistemas, est£ colocando no mercado o Diaplan — Sis- 
tema de Administrapao de Materiais. O sistema foi desenvolvido em um 
microcomputador da linha Apple podendo ser adaptado para micros de 
outras linhas ou para equipamentos de maior porte. O Diaplan realiza 
controle de estoque, de entrada e safda de produtos e de compromis- 
sos financeiros por dia e por fomecedor, podendo ser aplicado nas Sreas 
de engenharia de produtos e de suprimentos, entre outras. Maiores in- 
formacoes podem ser obtidasna prbpria Diacon pelo tel.: (011) 572-6168, 
Sao Paulo. 

Miniventiladores Arno 



A Arno Rotron Equipamentos 
EI6tricos possui uma grande varie- 
dade de ventiladores de dimensoes 
compactas para utilizacofo em cir- 
cuitos eletronicos. Os miniventila- 
dores podem ser utilizados em 
computadores e perifeVicos, copia- 
doras, aparelhos de audio, de mi- 
crofilmagem e de telecomunica- 
cSes, entre outros. Entre os mi- 
niventiladores desenvolvidos espe- 
cialmente para micros e minicom- 



putadores esta"o os da linha VTA: 
Alto Fluxo, Super Fluxo, Extra 
Silencioso, Ultra Silencioso; e o 
Motor Ventilador Axial Muffin 
XL. Outro produto da Arno Ro- 
tron 6 o motor srncrono MF, de 
pequeno porte, que pode ser usa- 
do em drives para o acionamento 
de disquetes. Informacoes sobre 
os produtos da Arno Rotron po- 
dem ser obtidas pelos tels.: (011) 
273-1122 ou 273-6725. 



Linha Informatica Remington 



A Remington colocou no mercado sua li- 
nha de produtos para a area de Informatica. 
Entre estes esta o sistema de processamento 
de textos, com capacidade de composica"o, 
edicao e reproducao. O sistema 6 composto 
por um monitor de vfdeo, uma unidade cen- 
tral de processamento com at6 dois disque- 
tes de 5 1/4" e um terminal Remtronic 2000 
T. Este ultimo tamtxSm em lancamento reune 
em um s6 equipamento as caracten'sticas de 
impressora com "qualidade carta", mSquina 



de escrever eletrbnica e um terminal para co- 
municacao com computadores atraves do pro- 
tocolo RS 232-C. Outra novidade e a impres- 
sora de margarida IM 217, com "qualidade 
carta", para ligacao a microcomputadores 
atraves de interface serial (RS 232-C) ou para- 
lela (Centronics). Na lista de novos produtos 
da Remington figuram ainda uma mdquina de 
escrever eletrbnica REMTRONIC 2400, com 
2, 4, 8 e 16 Kbytes de mem6ria;e o terminal 
editor de textos. 



Congresso da S. B. C. 



O V Congresso da Sociedade Brasileira de 
Computacao e a XI Conferencia Latino Ame- 
ricana de Informatica va"o se realizar este ano 
de 20 a 27 de julho, na Universidade Federal 
do Rio Grande do Sul, em Porto Alegre. Ate" 
o proximo dia 15 a organizacao do Congresso 
estara recebendo os trabalhos dos autores in- 
teressados em participar do IV Concurso de 
Trabalhos de Iniciacao CientTfica (para estu- 
dantes de graducao); do Semina>io Integrado 
de Software e Hardware, e do II Simpbsio de 
Concepcao de Circuitos Integrados. Os traba- 
lhos destes dois ultimos serao divididos em 
duas categorias: Comunicacao Tgcnica, resu- 
mes de at6 duas pSginas apresentando resul- 



tados recentes de trabalhos de pesquisa e de 
aplicacoes; e Artigo TScnico, com um m£xi- 
mo de 15 paginas apresentando experiencias 
e avancos relativos & a>ea de Informatica. A 
indicactio da categoria na qual o trabalho 
se enquadra devera ser feita pelo prbprio au- 
tor na carta de encaminhamento. Esta devera 
ser enviada a Ricardo Augusto Reis, Departa- 
mento de Informatica e P6s Graduacao em 
Ciencia da Computacao da Universidade Fede- 
ral do Rio Grande do Sul, Caixa Postal 1501 
- CEP 90000 Porto Alegre. Outras informa- 
poes podem ser obtidas pelo tel.: (0512) 
21-8499. 



Pregos 
da Sacco 



A loja paulista Sacco Computer Sto- 
re, que fica na Alameda Gabriel Montei- 
ro da Silva n° 1.229, anuncia os precos 
de alguns dos produtos que comercializa: 

PC 2001 (256Kb) 1.238 ORTN 

UCP Craft 1 1 Plus (48Kb) . . 104 ORTN 
UPCUnitron APII (48Kb) . 120 ORTN 

Disk Drive 5 1/4" 72 ORTN 

Impressora Graf ix 80 .... 179 ORTN 
Impressora Graf ix 100 ... . 293 ORTN 
Impressora Alice 9051 .... 459 ORTN 
Impressora Mdnica Plus . . . 329 ORTN 
Monitor Compo MV1 .... 52 ORTN 

Software 

Alta Caixa 15 ORTN 

Janela Magical I 18 ORTN 

Super Visicalc 18 ORTN 

Lotus 1-2-3 200 ORTN 



I NSTRUMENTOS 



* Decida sem diividas, erros de informacao, falhas de estoque 
ou vacilacdes nas entregas. 

— Completa linha de instrumentos de teste e medicao. 

\— Garantia de ate 2 anos. 
— Assistencia tecnica propria permanente. 

— Sistema inedito de reposipao quando em 
garantia. 

— Atendimento personalizado para 

todo o Brasil. 



INFORMATICA 



* Ponha-se em dia com o 
futuro. 

— Microcomputadores 
Prologica. 

— Assistencia tecnica 
propria. 

— Revendedores em todo 
o territorio nacional com a 
melhor assessoria para ampa- 
ra-lo no momento de decisao, 
mesmo que voce so precise 
de uma informacao mais 
precisa sobre os 
equipamentos. 




SUPRIMENTOS 
CPD 



* Unimos o util ao agrada- 
vel: qualidade/preco. 

— Pronta entrega para todo 
o territorio nacional. 




AJUDANDO 

A DESENVOLVER 

TECNOLOGIA 



— Estoque com os mais 
variados produtos. 

— . Fitas impressoras 
Formularios 
Etiquetas 
. Disquettes 
. Mesas 

. Estabilizadores 

. Modens 

. Pastas para 
formularios 

. etc. 



VISITE NOSSO SHOW-ROOM OU 
SOLICITE NOSSO REPRESENTANTE 

FILCRES ELETRONICA ATACADISTA LTDA. 
Rua Aurora, 165/171/179 - Sao Paulo - SP 

PBX: 223-7388 
Vendas Sao Paulo - Tels.: 220-7954/222-3458 
Vendas outros Estados - Tels.: 223-7649/221-0147 
Telex: 1131298 



5. 
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Planejar e controlar projetos nao e mais tao dificil. 
Utilizando este programa para a linha Apple, sua empresa 
podera contar com... 



Teen 




Pert 



. Angel o dos Santos Soares 




planejamento e controle de 
prazos das tarefas que coin- 
poem um projeto vem, a cada 
dia, tornando-se mais impor- 
tantes. principalmente quando se verifi- 
ca a complcxidade e a interdependencia 
dos fatores que influem na sua solu^ao. 
Estes fatores podem ser externos, como, 
por exemplo, prazos estabelecidos para 
entrcga do projeto ou termino do servi- 
90 , e/ou internos, como tipos de regime 
de trabalho adotado, seqiiencia e inter- 
dependencia entre as opera9oes. 

Atualmente, uma das tecnicas mais 
usadas para planejar e controlar projetos 
d a tecnica PERT (Program Evaluation 
and Review Technique), ou seja, Tecni- 
ca de Avalia^ao e Controle de Progra- 
mas. Esta tecnica se torna ainda mais 
util quando se deseja controlar e coorde- 
nar varias atividades correntes que se di- 
rigem a um objetivo comum. 

PERT foi utilizado pela primeira 
vez na constru?ao de sistcmas de proje- 
teis "Polaris" e teve seu uso difundido 
tanto no campo civil como militar. 

A REDE 

A rede de planejamento e a represen- 
tagao graTica de um programa, no qual 
se apresenta a seqiiencia logica do plane- 
jamento com as interdependencias das 
tarefas, com o intuito de se alcangar um 
determinado objetivo. Deve-se evitar 
que a rede apresente det allies excessivos 
em alguns setores e em outros seja por 
demaisgrosseira. 

Uma rede c composta de eventos e 
atividades. Os eventos sao representados 
por ciculos e constituem marcos que ca- 




racterizam determinados instantes, sem 
consumir tempo e/ou recursos. J a as 
atividades sao represent ad as por arcos 
orientados que unem dois eventos. E a 
execu9ao efetiva de uma opera9ao,con- 
sumindo tempo e/ou recursos. 

Para representar uma rede, podemos 
lan9ar mao de dois metodos: o f ranees e 
o americano. No nosso programa, o me- 
todo utilizado serd o americano por cau- 



sa das vantagens que este apresenta so- 
bre o metodo frances, alem de ser o 
mais usado. metodo americano apre- 
senta, entre outras, as seguintes vanta- 
gens: permite um domfnio mais facil pa- 
ra quern realiza o planejamento e difi- 
culta a repetifSo iniitil de idcias que re- 
presentam um so pensamento. 

Para se elaborar uma rede de planeja- 
mento, 6 necess^rio conhecer a rela- 
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9ao das atividades, a ordem de relaciona- 
mento entre elas e sua dura9ao. Tam- 
bem e importante observar as seguintes 
regras basicas : 

• entre dois eventos so pode existir 
uma atividade; 

• qualquer atividade que parte de um 
linico no e uma atividade dependente de 
todas as atividades que chegam a esse 
n6; 

• um evento e considerado atingido 
quando todas as atividades que conver- 
gem para ele forem concluidas; 

• nao devem existir circuitos na rede, 
pois ocorreria fato de uma atividade 
dar origem a si mesma. 

De acordo com a primeira regra aci- 
ma, seria impossivel realizar-se ativida- 
des paralelas. Para contornar este pro- 
blema, introduz-se o conceito de ativida- 
de ficticia e evento ficti'cio. Mas, e bom 
lembrar que, embora as atividades ficti- 
cias nao consumam tempo nem recur- 
sos, elas gastam tempo de processamen- 
to e por isto devem ser evitadas. Essas 
atividades s6 deverao existir quando fo- 
rem estritamente indispensaveis. 

Existem dois metodos para se estabe- 
lecer uma rede: o metodo da regressao e 
o da progressao. primeiro parte do 
evento final issimo e caminha para o ini- 
cial. metodo da progressao, mais facil 
e mais utilizado, parte do ini'cio para o 
fim. Tem-se continuamente o seguinte 
pensamento: "- Qual atividade (ou ati- 
vidades) vem depois desta?" 

DATAS DOS EVENTOS 

Cada atividade recebe um tempo esti- 
mado para sua execu9ao. Elas podem o- 
correr paralelamente ou sobrepor-se a 
outras. Para se obter informa9oes tais 
como a dura9ao do projeto, devem ser 
considerados, a partir do ini'cio, os pra- 
zos minimos em que as atividades po- 
dem ser iniciadas e os prazos maximos 
para o termino de cada uma delas. 
Data Cedo de um Evento — £ o tempo 
necessdrio para que o evento seja atin- 
gido, considerando-se que nao houve 
atrasos (imprevistos nas atividades ante- 
cedentes). 

Data Tarde de um Evento - £ a data 
limite de realiza9ao de um evento. Qual- 
quer execu9ao que passar desta data 
atrasarri o projeto planejado. 
Tempo Disponfvel — £ o intervalo de 
tempo existente entre a data tarde final 
e a data cedo inicial de uma atividade 
considerada. 

Caminho Cri'tico - E o caminho de 
maior dura9ao do projeto (evento ori- 
gem - evento objetivo). 

Com rela9ao &s datas limite de inicio 
e termino de uma atividade, temos: 
Primeira Data de Inicio (PDI) - E a pri- 
meira data possivel de se iniciar uma ati- 
vidade. 
Ultima Data de Inicio (UDI) - fi a 



ultima data possivel de se iniciar uma 

atividade. 

Primeira Data de Termino (PDT) — £ a 

primeira data possivel de se terminar 

uma atividade. 

Ultima Data de Termino (UDT) - £ a 

ultima data possivel de se terminar uma 

atividade. 

FOLGAS E RECURSOS 

Chamamos de folga a margem de 
tempo que reflete a flexibilidade da pro- 
grama9ao, que pode ser dividida em livre 
e total. A folga livre (FL) e atraso m^- 
ximo que uma atividade pode ter sem 
alterar a data cedo, fixada, do evento fi- 
nal desta atividade, enquanto a folga 
total (FT) e o atraso maximo que uma 
atividade pode ter sem alterar a data 
final de sua realiza9ao. Ja os recursos 
sao meios utilizados para a execu9ao das 



OPCOES 
e.CONSTRUCAO DE UHA REDE 
i.CORRECAO DE DADOS 
2.H0STRA A TABELA DE EVENTOS 
3. MOSTRA A TABELA DE ATIVIDADES 
4.M0STRA GRAFICO DE GANTT E FERIADOS 
5.M0STRA AS ATIVIDADES CRITICAS 
6.H0STRA OS RECURSOS UTILIZADOS 
7.CHAHA A REDE DO DISCO 
8.GUARDA A REDE NO DISCO 
9.SAIDA DO PROGRAMA 



Figura I 

tarefas. Eles sao geralmente expressos na 
forma de trabalho e podem ser estima- 
dos e alocados a cada atividade. 

PROGRAMA 

programa apresenta inicialmente 
dez op9oes, como mostra a figura 1 . 
Vejamos agora algumas considera96es 
sobre cada uma delas. 

0. Construcao de uma rede — Para 
executar esta parte do programa, deve 
ser feito, previamente, o desenho da re- 
de. No caso, usaremos como exemplo 
a rede que esta no ini'cio desta materia. 
programa vai solicitar numero total 
de nos (incluindo os n6s ficticios); o 
numero total de atividades (incluindo as 
ficticias) e o numero do evento inicial 
(que geralmente 6 o numero 1, mas po- 
dera ser qualquer outro numero inteiro 
positivo). 

Ap6s a introdu9a"o desses dados, de- 
vera" contar a introdu9ao das ativida- 
des propriamente ditas. Para cada uma 
delas, o programa pede o nome da ativi- 
dade, o numero do evento que a precede 
e numero do evento que a sucede. No 
caso de esquecimento, o programa man- 
te'm na tela a ultima atividade introdu- 
zida. 





TABELA DE EVENTOS 




EVENTOS DC 


DT 


FOLGA 


i 


i 


i 





2 





3 


i 


3 


4 


4 


e 


4 


4 


4 


% 


c 

J 


7 


7 





6 


10 


10 





7 


14 


14 
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8 


15 


15 





9 


18 


13 








Figura 2 



Em seguida, ele verifica se a cada ati- 
vidade corresponde um evento. Caso 
contrario, e emitida uma mensagem de 
erro, e o programa reinicia a opera9ao, 
colocando o MENU novamente na tela. 
Em caso positivo, o programa ordena as 
atividades por seus niimeros (Ex.: 1-2, 
1-3, 24 etc.) e pede a data de inicio do 
projeto (DDMMAA). Se nenhuma data 
inicial for desejada para o projeto, deve- 
se entrar com " * ". Entao, serd pedida a 
dura9ao das tarefas (em dias) e os recur- 
sos alocados para cada atividade. Neste 
momento, a rede }i esti na mem6ria do 
computador, e sao calculadas as data ce- 
do, data tarde, data das atividades e con- 
sequentemente o caminho cri'tico. En- 
quanto o programa 6 executado, apare- 
cem mensagens na tela, entao, o MENU 
e oferecido para a escolha de outro 
item. 

1. Correcao de Dados - Esta op9a"o 
da" ao usudrio a oportunidade de fazer 
mudan9as na rede e ver imediatamente o 
efeito que a mudan9a introduz no projeto. 
Todavia, esta facilidade e limitada, na"o 
possibilitando inserir, apagar ou reorde- 
nar as atividades. Ela permite corrigir a 
dura9ao de uma atividade e os recursos 
alocados a ela. Quando todas as mudan- 
9as forem introduzidas, programa re- 
calcula automaticamente as datas de to- 
da a rede. Essa op9ao possibilita, ainda, 
a mudan9a da data inicial do projeto. 

2. Mostra a tabela dos eventos - Sera 
dado um relat6rio onde se encontram os 
eventos e suas datas (cedo e tarde) e a 
folga. (Veja a figura 2). Estas datas sao 
apresentadas em numero de dias ocorri- 
dos no projeto. 

3. Mostra a tabela de atividades — 
Quando este relat6rio for pedido, serao 
dados por extenso todos os oito itens en- 
contrados. Sera' pedido, entao, o nume- 
ro de ordem, que pode ser qualquer um m 
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TABELA BE ftTMJIBABES 

EH ORDErt ASCENDENTE : 
i.ATIVIDADE 

2.DURACA0 

3. ULTIMA DATA OE INICIO 

4.ULTIMA DATA DE FERHINO 

5.PRIMEIRA DATA DE INICIO 

6.PRIHEIRA DATA DE TERMINO 

7.F0LGA TOTAL 

8. FOLGA LIVRE 

rfUHERO DE ORDEH j 

ATIVIDADES GELECIONADAS 

TABELA DE ATIVIDADES 

TAi!ELAS EH TERMOS DEM.DATAP 
2.DIAS 



Figura 3 

dos numeros de 1 a 8 (veja a figura 3). 
Depois sera fornecida a opcao de relat6- 
rios em forma de data ou em forma de 
dias. No relatorio em forma de data (fi- 
gura 4) nao aparecera a folga livre e a 
folga total por limitacoes no campo de 
impressao. As datas serao impressas na 
forma DD/MM/AA. A forma de dias, 
como mostra a figura 5 , apresentara' as 
datas em niimero de dias ocorridos no 
projeto. Na frente do niimero de cada 
atividade critica aparecera - um " *". 

4. Grifico de Gantt - grafico apa- 
recera no minimo para cada 60 dias de 
projeto (figura 6) e, no maximo, para 
240 dias. As atividades criticas tern na 
frente do niimero um " *", e suas dura- 
coes no grafico de atividades tambem sao 
representadas por um " *". As ativida- 
des nao crfticas serao representadas pelo 
sinal matematico " > " (maior que). 

grafico de Gantt e" particularmente 
litil para se poder ver as varias atividades 
sobrepostas. Tambdm aparecera no gra- 
fico um pequeno calendano indicando o 
dia da semana correspondente a cada dia 
do projeto (de segunda a sexta-feira). 
No lugar dos sabados e domingos, sera"o 
impressos brancos, e nos feriados "F", 
nao sendo, assim, consider ados dias 
liteis. Aparecera tambem a data no for- 
mato DD/MM/AA correspondente a ca- 
da dez dias do projeto. 

No final do graTico de Gantt, sera" 
impressa uma tabela contendo os feria- 
dos que ocorreram durante o projeto 
(figura 7), mostrando o niimero total de 
feriados, a data e o dia da semana. 

5. Mostra as atividades crfticas - Se- 
ra" fornecido um relat6rio (figura 8) con- 
tendo o niimero e nome da atividade 
critica, a sua duracao, a ultima data de 
Inicio (UDI), no formato DD/MM/AA, 



TABELA DE ATIVIDADES - EM TERMOS DE DATAS 



1-2 

i-3» 

1-4 

2-5 

3-4* 

3-A» 

4-5» 

4-7 

4-8 

5-7* 

6-8* 

7-9* 

8-9* 



Figura 4 



Figura 5 



ATIVIDADE 



PDI 



POT 



UDT 



UDT 



19/03/84 
19/03/84 
19/03/84 
20/03/84 
22/03/84 
22/03/84 
22/03/84 
22/03/84 
22/03/84 
25/03/84 
28/03/84 
01/04/84 
3 02/04/84 



19/03/84 
21/03/84 
20/03/84 
23/03/84 
22/03/84 
27/03/84 
24/03/84 
28/03/84 
27/03/84 
31/03/84 
01/04/84 
04/04/84 
04/04/84 



20/03/84 
19/03/84 
20/03/84 
21/03/84 
22/03/84 
22/03/84 
22/03/84 
25/03/84 
27/03/84 
25/03/84 
28/03/84 
01/04/84 
02/04/84 



20/03/84 
21/03/84 
21/03/84 
24/03/84 
22/03/84 
27/03/84 
24/03/84 
31/03/84 
01/04/84 
31/03/84 
01/04/84 
04/04/84 
04/04/84 





TABELA DE ATIVIDADES 


- 


EH TERH0S DE DIAS 






1-2 A 


ATIVIDADE DUR 


PDI 


PDT 


UDI 


UOT 


FL 


FT 
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i 




i 


2 


2 


1 





1 


1-3* C 


3 




3 


1 


3 








2 


1-4 B 


2 




2 


2 


3 


1 


1 


1 


2-5 D 


4 




5 


3 


6 


1 


1 


3 


3-4* F 







4 


4 


4 











3-6* G 


6 




9 


4 


9 








3 


4-5» E 


3 




6 


4 


6 








2 


4-7 J 


7 




10 


7 


13 


3 


3 


2 


4-8 I 


6 




9 


9 


14 


5 


5 


2 


5-7* K 


7 




13 


7 


13 


e 





2 


6-8* H 
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10 


14 


10 


14 





« 
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7-9* L 
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14 


17 


14 


17 
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8-9* H 


3 


15 


17 


15 


17 
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GRAFICO 0E GANTT 




ATIVIDADE 


1 5 


10 15 28 25 39 35 49 45 59 55 69 






19/03/84 


28/03/84 07/94/84 17/04/84 27/04/84 07/95/84 17/95/84 






• STQ8S 


ST88S 


ST88S STQ8S ST88FF STfl&S FF86S 5T88S STSJ 
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*» 


• 




4-7 J 




» 


>»» 
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)>>> 
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»»«» 
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8-9« N 
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Figura 6 

e o niimero de dias ocorridos no projeto. 

6. Mostra os recursos utilizados — 
Aparecera um relatorio onde serao apre- 
sentados, dia a dia, quantos recursos 
estao alocados em todas as atividades do 
projeto (figura 9). 

7. Chama a rede do disco - Opca"o 
usada para carregar o micro com uma 
rede previamente gravada no disco. 

8. Guarda a rede do disco — Esta 
opcao serve para gravar no disco a rede 
que esta" no micro. Lembre-se que nSb e 
possfvel chamar uma rede se outra ja es- 



tiver presente na mem6ria do micro. Na 
tentativa de se fazer isto, sera emitida 
a mensagem "A rede ja esta" na membria". 
Isto e feito para proteger a rede, evitan- 
do que acidentalmente sobreponha-se 
uma rede a" outra. 

Caso nao tenha sido introduzida a 
rede, ou na"o se tenha chamado a rede 
do disco, e se tente pedir outra opcSo 
do MENU que nao seja (construcSb da 
rede) ou 7 (chama a rede do disco), serd 
emitida a mensagem de erro "A rede 
nao esta" na mem6ria". 
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NEXUS: o PC mais famoso do Brasil 
esta na Gappy* 

Compre logo um Nexus 1600, um micro versatil para uso 

pessoal ou automagao de empresas, com 256 Kbytes 

de memoria RAM e expansao ate 704 Kbytes. 

O Nexus 1600 e IBM-PC compatfvel e possui caracterfsticas 

exclusivas: 

— Trabalha tambem a 8 MHz, o que 
permite uma maior velocidade 
de processamento, 

— Sua placa de sistema ja possui 
duas interfaces de comunica- 
gao serial 

— Monitor de vfdeo com tela 
basculante e mascara anti- 
reflexo. 

— Facilidades na edicjao de 
comandos e textos, com o 
simples acionar de teclas. 

Para que voce tenha 
nas maos toda a ver- 
satilidade do Nexus 
1600, a Clappy Ihe 
oferece atendimento es- 
pecializado e as melhores con- 
digoes de precjo e pagamento. 
E a Scopus garante a 
mais perfeita assistencia 
tecnica. Como voce 
ve, nunca foi tao facil 
comprar uma memo- 
ria nova. Sem dor W a ■ Em mar^o, 
de cabeca. M^ ° Nexus 1600 

tern pre<;o es- 
pecial, e entrega 
imediata. 

Centro: Av. Rio Branco, 12 - loja e 
sobreloja - Tel: (021) 253-3395 

Copacabana: Rua Pompeu LjDureiro, 99 
Tels.: (021) 236-7175 - 257-4398 

Visite nossas lojas ou solicite a visita de um representante. 
Atendemos em todo o Brasil pelo Reembolso Varig 



C0PU5 

compu t adores 

Clappy 

O lado gente da maquina. 




tGcnica pert 






All'.'IMOES CRIFICAS 






9. Safda do Programa — Ao se esco- 




AriUIDAOE PUR DATA DC IfHCIO DIAS MPRIDv: 




lher esta opSb, sera" emitida a mensagem 
"Voce tern certeza de que quer parar? 
(S/N)". Se for digitada outra letra que 
nao "S" o programa volta ao MENU, de 
forma a nSo se sair do programa sem 
realmente desejd-lo. 


1-3 C 

3-1 F 
3-6 

M : 

5-7 t 
i-8 H 
?-V L 
'-? 11 


3 l«'M/84 1 
9 22/63/84 4 

4 22/43/84 4 

3 22/13/84 4 
7 25/43/84 7 

5 28/43/84 14 

4 41/44/84 14 
3 »V4'34 15 










RESTRICOES DO PROGRAMA 


Figura 8 






1. numero total de dias (incluindo 
sdbados, domingos e feriados) de plane- 


RECURSOS UTIUZADOS 










RECURSOS 






FERIADOS NO PERIODO 




i 5 1» 15 
DIAS 


29 




33-2G/04/84-S 
34-21/04/84- 
43-30/04/84-S 
44-01/05/84-T 




1 >)•• 

2 ****** 

3 »*«** 

4 »»»»»»««*»*» 

5 »»>«»»K.O» 
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7 X«*«»>*K* 

8 i»»»»»»»« 
? «**«»»»»» 
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11 »«• 
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14 «» 
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Figura 7 

jamento nao pode ultrapassar 240. Isto 
se deve ao fato dos vetores VE$ (calen- 
da"rio) e GND (feriados) estarem dimen- 
sionados para esse numero maximo de 
dias. Um aumento neste dimensiona- 
mento gera um estorno na mem6ria do 
micro. 

2. Na rede, nao pode haver uma ativi- 
dade cujo n6 predecessor seja maior que 
o n6 sucessor. Tambem na"o se pode 
numerar esses n6s aleatoriamente. A 
numeracao deve obedecer a uma ordem 
crescente e seqiiencial, ou seja, uma rede 
com cinco n6s devera possuir os n6s de 
numero 1, 2, 3, 4, 5 ou 32, 33, 34, 35, 
36 e nunca 1, 3, 5, 6, 7 ou 33, 35, 37, 
39,32. 

3. Quando 6 solicitado o relatorio Gra- 
fico de Gantt e Feriados (opca"o 4), o 
programa demora algum tempo. Entre- 
tanto, nao desligue o micro nem pare o 
programa, pois esta demora se deve a 
montagem dos vetores calendario e fe- 
riados. (0 PROGRAMA NAO ESTA EM 
LOOPINGI). 

4. A ordem da emissao dos relat6rios 6 
importante! So o relat6rio 2 (Mostra a 
tabela de eventos) nao depende desta 
ordem. Ela diz respeito a impressSb dos 
relat6rios antes ou depois da emissao do 
relatorio 4 (Mostra o graTico de Gantt e 
Feriados). 

Se os relat6rios forem emitidos antes, 
todas as datas e numeros de dias ocorri- 
dos no projeto va"o estar sendo conside- 



Figura 9 

rados como dias corridos, isto e, sem le- 
var em consideracao sdbados, domingos 
e feriados. Ja" no caso de os relat6rios 
serem emitidos depois, todas as datas 
e numeros de dias ocorridos no projeto 
serao considerados dias uteis, levando 
em consideragSo sdbados, domingos e 
feriados. 

5. Os feriados do programa correspon- 
dem aos de 1984. Quando se usar este 
programa deverd ser feita uma mudanca 
na lista de feriados, introduzindo os 
feriados correspondentes e apagando os 
ja ocorridos. Esta lista se encontra na 
linha 1775: 

1775 FeriadoS = "Lista de Feriados" 
Para fazer esta mudanca, aja da se- 
guinte forma: 

- Execute os passos de 1 , 2, 3, 4, 8 
do algoritmo para rodar o programa. 

- Digite "1775" RETURN. 

- Digite "1775 Feriado $ "="Lista de 
Feriados" RETURN. 

Onde, a lista de Feriados, entre aspas, 
devera" obedecer o formato "DDMMAA 
DDMMAADDMMAA...", ou seja, dia, 
mes e ano, cada um com dois digitos e 
sem espaco entre eles. 

6. A unidade de duracao das tarefas 6 
dia. NSo 6 possivel ter-se meio dia, hora, 
etc., na duracao de uma tarefa. 

7. nome das atividades pode ter no 
maximo 29 caracteres. 

8. Para nao ocorrer estorno na mem6ria 
do micro, o numero de atividades a se- 
rem utilizadas deve ser, em media, 60. 



9. O numero maximo de feriados por 
ano 6 igual a 30 . 

10. As safdas dos relat6rios estSo tabu- 
ladas para impressora e video c/80 colu- 
nas. 

1 1 . Para os usuanos com impressora 80 
colunas (tipo Monica, por exemplo) e 
conveniente usar o modo texto compri- 
mido. 
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Quanto custa 



terminal remoto 

TR 207 num 

microcomputador 

Cobra 210? 




O microcomputador Cobra 210 
e o terminal remoto TR 207 sao primos 
em primeirissimograu. Os dois foram pro- 
jetados para permitir a padronizacao dos 
processos industrials, comaconsequente 
reducao do custo de iabricacao e do preco ao 
consumidon 

^ O micro e o terminal utilizam a mesma mecanica, a mesma f bnte de alimentaeao e o mesmo 
video. Eles tern pequenas diferencas nas partes eletrorucas e nas caracteristicas do teclado. 
Qual a vantagem dessa padronizacao para o usuario? 

A primeira e que um micro Cobra 210 pode desempenhar plenamente todas as luncoes de um 
terminal remoto, sem prejuizo de suas fiincoes de microcomputador. 

A segunda e que um terminal remoto pode ser feeilmente converudo num microcomputador 

Cobra 210. processo de transfor- 
macao e simples e o custo e baixo. 

Como voce v*^ quando compra 
um Cobra 210, voce leva um micro que 
tambem pode fiincionar como terminal 
remoto. E quando compra um 
TR 207, voce leva um terminal remoto 
que pode ser transfonnado em 
micro, como num passe de magica 
Isso nao e um bom negocio? 




» 

m 



*i^ 



24 



MICRO SISTEMAS, abril/85 



TgCNICAPERT 



Descricao das Principals Variaveis 



TE — Numero Total de Eventos 

TA - Numero Total de Atividades 

A CS(TA) - Vttor que comem o Nome das A tlvideda 

ET (TE.3) - Para cada Evtnto: 

I. Data Cede 

2. Data Tarda 

3,Folga 
AD (TAJ Of - Para cada Atividade; 

L Numero da Atividade lex. : 3002-3-2) 

2. Indica a Atividade Crltica: 1 - Critica 
O-NdoCrftica 

3.Duracao 

4.Primeira Data de Initio (PDl) 

S.P/imeira Data de Termmo (PDT} 

6. Ultima Data de Initio fUDI) 

7. Ultima Data de Tirmwo (UDT) 
S.Folga Total (FT) 
9FolgaUvre(FLf 

lO.Hecursos 

PT (TE, TE) - Tabek de precedincia: 

Coluna - represent a o evemo precedente 
Linha - representee even to sucessor 

SD - Tern valor =7 quando a Data Initial i desefada 

Tern valor -0 quando ndo se deseja Data Initial 

SR (TA) - Matrix de Ordenactia: 

Ao invis de reordenar a matrix AD, que 4 gran- 
de, toda vet que se preeisar ordenar as ativida- 
des. reordenar-se este vetor. 
Cada elemento do Vetor SR (TA) contim urn 
ponteiro indkando uma linJta da matrii AD. 
Desta forma, depots de uma ordenacdo, SR 
(!)<• 7 e SR (2)* 30. Entdo, quando fmprimir 
AD (7), terd impresso primeiro seguido de 
AD (30) 

TD —A data initial e convertida no numero total de 

dias a partir de 01.01.19 72. 



SB - nttmero a ser adkionado a cada numero de 

atividade, se o usuirlo liver como evenfo initial 

um numero motor que 1 
NW - Tern valor *1 sea matrix estd na memoria 

Tern valor =0 se a matrix ndo estd na memdria 
D 1 S -12 pares de numeros, dias em cada met de um 

ano ndo bissexto 
D 2 f -12 pares de numeros, dias em cada mes de um 

ano bissexto 
D3 S -12 pares de numeros. total de dias acumukdos. 

mes a mes* durante um ano 
Vet (240) - Vetor no qua! sao armazenados os dias da sema- 

na do projeto 
G N D (240) - Vetor que possui o nWmero de dias do projeto 

que e" feriaao 
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L - LfcW ( STRl {DM - D2)> 




* WUMEMO TOTAL 0E MOS'" 






fits •»■ 


AS 


VI - DM - DZiWIt ^ STRt <Vl»t 


11* 


PRINT i PRINT "IIMCLUIHDO OS 




ia 


SlfM »■■ DAtA! ia/Sl/84 ■•• 




W2» • Mit « w /"iV3t ' RIGHTS 




NOS FICTICIOS)"* PRINT s IMI'UI 




ir. 


BUM •■■ LtNCUAULHt BASIC - UM 




(i/2»,L ♦ i)iV5t * BIGHT* <V 




"NUHEHO DE MOS "jAl 






ITS0H ■»■ 




31. A3 f Hi IF LEN (V5«) < 


115 


TE " VAL «A*)i IF TE I 3 DO 11» 




H 


RFM »■■ PROfikrAMACAO Pt »1 «■• 




> 3 THEN V5* ■ *•" • V5* 




its 








7« 


L - LEN ( SIR* <<03 + AB> / A 


120 


PRINT ! PRINT 5 PRINT "OUAL 




?5 


(U>SUit 134»i ROT© 142* 




3)1 




HUMERO TOTAI- OF AtlVIOAOEB 




a* 


fi£H ■■" CONVLRliAO l>0 HUHCRO 


.:", 


W ' <D3 - Afl> r A3i0it - STRS 




? ' 






TOTAL Dt DIAS Eh r0*HA l>E IMi 




<MV)«G2» • 01* + "V" 
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PRINT a PRINT "{IMCLUJKOO AS 






r,"i tlM)M<rlAA> »*a 


M 


Ct * MIGHT* IG21.L * l>:CBf - 




ATIVIDADES FICTICIAIj)"! PRINT 




k. 


03 - AI2TH - TNT fND / A2MDN 




RIUH1* <G«,A3 4 HI IF LLN 
•;l5bl*> < > 3 THEM 0B* ■ "•" * 




i INPUT "MUMFft* DE ATlVlDADt 
8 "fA* 






H * AJ) / MM IF DM > • L.010 




B4M 


13» 


TA - VAL (A*>t IF TA < 1 OOTO 






dt, 


OS 


AS » YM * AaiAS* • STAI (AD)i 
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4k» 


TN ■ TH - A/!l)« DM ♦ Ai>i IK 
INT <VH / M) * TN / A« rMhN 
l>N - DN * A/ 




AH • MIGHT* (AOt.AO I lUi 

1* - V-.5 * Utf*!Li1* ' 1 IS « A 
ES: HE 111 UN 


135 


PRINT s PRINT b 1MPUT "OUAL 
O FNJHERO D* EUEHTO IHICIAt.^ 
"iA« 




« 


01 ° 0S IF' INT 4VH / A* J ■ TM 


98 


OM EXT* PfllWt LN*s PRINT i 0OSUI 
1S20I GOTO 1429 


1*9 


f.fl • UA|. 4At> - |.1 If SB t * 
OOrO 1315 




r,e 


DS UAL C 11105 (D'J<»,D!f,A:i>>: 
If D2 > Af. TUtM Oi - OH * D 


95 


REN *»• C0MSTRUCAO PA RF.Qt " 
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PRINT S PRINT I PRINT IflU* 

a) j"inirooui:ad das AnviOAOt 
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IF ON < • 02 THLH DS - OA - 




HUCAO DA REDE" 
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OOSWJR li>0* 






A3: b'ATO b4> 


165 PBIMT i PR1MT s PS1MT "UIML 


15* 


FOR ,| = t TO Tft 



155 IF J = 1 GOTO 170 

160 PRINT : PRINT s PRINT "A LILT 

IMA ATIVIDADE INTRODUZIDA FO 

I" 
165 PRINT : PRINT C + S8;"-";R + 

SB;" ";AC*(J - 1>: PRINT = PRINT 

170 PRINT : PRINT : INPUT "NOME 

DA ATIVIDADE ";AC*(J> 
175 PRINT : INPUT "NUMERO DO EWE 

NTO QUE A PRECEDE ";A$ 
180 LET C - -VAL (AS) - SB 
1H5 IF C < > INT <C> OR C < 1 OR 

C > TE - 1 THEN PRINT : PRINT 

"NUMERO INVALIDO": ROTO 175 
190 PRINT : INPUT "NUMERO DO EVE 

NTO QUE A BUCEDE ";A$:R = VAL 

<A*> - SB 
195 IF R < > INT <R) OR R < 2 OR 

R > TE OR R = C THEN PRINT 

: PRINT "COMUINACAO INVAl.IDA 

": GOTO 175 
200 PT<R,C) = l:AD(J,l) = C * 100 

+ R: NEXT J 

205 REM «»* CHECA E ORDENA AS A 

TIVIDADES *** 
210 PRINT : PRINT : PRINT "CHECA 

R":Y = 0: FOR C = 1 TO TE - 

1:X = 0: FOR R = 2 TO TE: IF 

PT(R,C) = 1 THEN X = 1 
215 NEXT R: IF X = THEN Y = 1: 
PRINT = PRINT "NENHUMA ATIV 

IDADE INICIANDO EVENT0"sC + 

SB 
220 NEXT C: IF Y = 1 THEN PRINT 

s PRINT "0 PROGRAMA SERA REI 

NICIADO ": GOSUB 1520: RUN 
225 REM *«« SORT POR NUMERO DE 

ATIVIDADE mt* 
230 PRINT "ORDENAR": FOR J = 1 TO 

TA - le FOR K = J + 1 TO TA 
235 IF AD<J,1> < o AD<K,i) GOTO 

250 
240 A = AD<J,i):AD<J,l) = AD<K,i) 

:AD(K,i) = A 
245 A* ■' ACS<J>:AC$<J> = ACS<K):A 

CS(K) ■ AS 
250 NEXT K: NEXT J: GOSUB 260: GOTO 

320 
255 REM *** OBTEM A DATA INICIA 

L E CONVERTE EM NUMERO DE DI 

AS - DESDE JANEIRO DE 1972 * 

■»# 
260 PRINT : PRINT "DATA INICIAL" 

: PRINT 
265 PRINT "ENTRE COM A DATA INIC 

IAL DO PROJETO (DDMMAA) " 
270 PRINT : PRINT "DIGITE « SE N 

ENHIJMA DATA INICIAL FOR DESE 

JADA " 
275 SD = 0: PRINT : INPUT "DATA I 

NICIAL ";SDS: IF SDS = "*" THEN 

SD = i: GOTO 310 
280 D = VAL ( LEFTS (SDS,2)):M = 

VAL ( MIDS (SDS,3,2)):Y = VAL 

( RIGHTS (SDS,2>> 
285 IF M < 1 OR M > 12 OR Y < 72 
OR Y > 99 OR D < 1 OR D > 3 

1 THEN PRINT I PRINT "DATA 
INVALIDA": GOTO 275 

290 Y = Y + 1900: IF INT <Y / 4) 

= Y / 4 THEN 1)1$ = D2S 
295 Y = Y - 1900: IF D > VAL ( MIDS 

<D1S,M * 2 - 1,2) ) THEN PRINT 

: PRINT "DATA INVALIDA": GOTO 

275 
300 TD = D + (Y - 72) « 365 + INT 

(<Y - 69) / 4) + VAL ( MIDS 

(D3S.3 * M - 2 r 3)) 
305 IF M > 2 AND (1900 + Y) / 4 ■ 
INT ((1900 + Y) / 4) THEN T 

D = TD + 1 
310 RETURN 
315 REM *kx OURACAO E RECURSOS 

PARA CADA ATIVIDADE »** 
320 FOR J = 1 TO TA: PRINT : PRINT 

: PRINT "DURACAO DA ATTVIDAD 

E E RECURSOS ": PRINT 
325 PRINT "ENTRE COM A DURACAO D. 

A AITUIDADE.": PRINT 
330 F = INT (AD(J,i) / 1000) :T - 

AD(J,i> - I" « 1000 + Sl):F ■ 

F + SB 
335 PRINT Fj"-";T; r " ";ACS(J> 
340 PRINT : INPUI "NUMERO DE DIA 

S ";AS:A ■ VAL (AS): IF A < 

GOTO 340 
345 Al)(J,3> = A: PRINT » PRINT I PRINI 

"ENTRAR COM AS UNIDADES DE R 

ECURSOS AI.OCADAS." 
350 PRINT : INI'lll 'UNIDADES ";AS 

:A VAL tAS): IF A ( GOTO 

350 



355 AD (J ,10) = A: NEXT J 

360 REM »*•• DATA CEDO DO EVENTO 

365 PRINT : PRINT : PRINT : PRINT 
"CALCULANDO AS DATAS CEDO" 

370 FOR J = 1 TO TE: FOR K = 1 TO 
3:ET(J r K) = 0: NEXT K: NEXT 
J:ET(1,1 > = 1: FOR R = 2 TO 
TE: FOR C = 1 TO TE - 1 

375 IF PT(K.C) - GOTO 395 

380 AN ■ C » 1000 < R: FOR J = 1 TO 
I A". IF AD(J,1) < > AN GOTO 
390 

385 IF AD(J,3> + ET(C,1> > ET(R, 

1) THEN ET(R,i> - AD (J, 3) + 
ET(C,1) 

390 NEXT J 

395 NEXT C: NEXT R 

400 REM *** DATA TARDE DO EVENT 

**M 

405 PRINT "CALCULANDO AS DATAS T 

ARDE" 
410 ET(TE,2) = ET(TE,i>: FOR R = 

TE TO P. STEP - l: FOR C = T 

E - 1 TO 1 STEP - 1 
415 IF PT(R,C> = GOTO 440 
420 AN = C * 1000 + R: FOR .1 = 1 TO 

TA: IF AD(J,1) ( > AN THEN 
GOTO 435 
425 IF ET(C,2) = THEN ET(C,2) = 

ET(R,2) - AD(J,3>: GOTO 435 
430 IF ET<R,2) - AD (J, 3) < ET(C, 

2) THEN ET(C,2> = ET(R,2> - 
AD(J,3) 

435 NEXT J 

440 NEXT C: NEXT R 

445 REM «** CALCULO DAS FOLGAS 

DAS ATIVIDADES #*» 
450 FOR J = 1 TO TE:ET(J,3> = ET 

<J f 2) - ET(J,1): NEXT J 
455 REM **» CAMINHO CRITICO »m* 

460 FOR J = 1 TO TA:AD(J,2) = 0: 
F = INT (AD(J,1) / 1000>:T = 
AD(J,1 > - F * 1000 

465 IF ET(F,3) = AND ET(T,3> = 

AND ET(T,i> - ET(F,1> = AD 
(J, 3) THEN AD(J,2) = 1 

4/0 NEXT J 

475 REM *«* CALCULO DAS PDI PD 

T UDI UDT FL E FT PARA 

CADA ATIVIDADE *»* 
480 PRINT "CALCULANDO AS DATAS D 

AS ATIVIDADES ". 
485 FOR J = 1 TO TA - :F = INT (AD 

(J,i) / 1000>:T = AD(J r l> - 

F * 1000 
490 AD(J,4) ■ ET(F,1):AD(J,5> = A 

D(J,4) + AD(J,3> - 1 
495 AD(J r 7) = ET(T,2) - 1:AD(J,6> 

= AD(J,7) - AD(J,3> + 1 
500 AD(J.B) = AD(J,7) - AD(J,5):A 

D(J,9) = ET(T,1) - AD(J,5> - 

1 
505 IF AD(J,3> = THEN AD(J,5> ■ 

AD(J,4):AD(J,7> = AD(J,6> 
510 NEXT J: GOTO 1420 
515 REM *** SUBROTINA PARA CORR 

ECAO DA REDE *** 
520 PRINT : PRINT : PRINT " " TAB( 

14);"C0RRECA0 DE DADOS" 
525 PRINT : PRINT "1.C0RRECA0 DE 

UMA ATIVIDADE" 
530 PRINT s PRINT "2.C0RRECA0 DA 

DATA INICIAL ": PRINT 
535 PRINT : INPUT "QUAL NUMERO 

? ";A$:A = VAL (AS): IF A < 

1 OR A > 2 GOTO 535 
540 IF A = 1 GOTO 550 
545 GOSUB 260: GOTO 365 

550 PRINT : PRINT : PRINT : PRINT 
" " TAB( 7);"C0RRECA0 DAS AT 
IVIDADES" 

555 PRINT : PRINT "ENTRE COM N 
UMERO DA ATIVIDADE (EX: 1-5)" 

560 PRINT : PRINT "DIGITE # PARA 
RETORNAR PARA MENU.":Z ■ 


565 PRINT : INPUT "ATIVIDADE "sA 

$:L = LEN (AS) 
570 IF AS a "«" GOTO 365 
575 PRINT : FOR J = 1 TO L: IF MIDS 

(A$,J,1) < ) "-" GOTO 585 
580 C = ( VAL ( LEFTS (AS, J - 1)) 

- SB) K 1000:R = UAL ( RIGHTS 

( AS , L - J ) ) - SB : K = C + R ( J 
= L:Z = 1 
585 NEXT J: IF 2 = GOTO 600 
590 2 -- 0: FOR J = 1 TO TA: IF K = 

AD(J,1) THEN I = i:K = J: J ■ 

TA 
595 NEXT J 
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• Microcomputadores Pessoais 

e Profissionais, Software, Suprimentos 
e Cursos. 

• Financiamento em ate 18 meses sem 
entrada e os precos mais baixos do 
mercado. 

• Atendimento perfeito, profissionais 
treinados e habilitados para dar a voce 
a certeza de um bom Investimento 



EQUIPAMENTOS 

CP-400. CP-500 com 1 ou 2 Drives • 

Apple II Tl com 48Kou64K« 
I mpressoras • Videos • I nterfaces • Etc. 



SUPRIMENTOS 

Formulario Continuo • Disquetes • 
Fitas • Mesas • Etiquetas • Etc. 



SOFTWARE 

Nacionais e Importados mais 

de 2.000 programas e 

jogos de todas as linhas. 



CURSOS 

Basic • Basic Avangado e DOS. 



Av. Ataufo de Paiva, 566 

sobreloja 211 e 202 

Rio de Janeiro - R.J. 

Tels.: (021) 239-2798 e 511-0599 



DadoS 






sistemas de banco de dados 

CURSOS 
DISPONIUEIS 

• Introdu^ao 6 Microcomputa^oo 

• DOS - PC "Sistema Operational" 

• UNIX "Sistema Operational" 

• UNGURG€M C "ling. Programatiso" 

• dfiflSC II "Programatiao Baska" 

• dBRS€ II "Program, flvangada" 

• dBflS€ III "Program. Basica" 

• LOTUS 1-2-3 "Plan. Cletrdnka" 

• Framework "Sistema Integrado" 

• Symphony "Sistema Integrado" 

• Wordstar "Processador de Texto" 



(KG. S«IN.°0ZI9 



MfiTCRIRIS DIDRTICOS: Publicocoe 

Tecnicos desenvolvidas em 

portugues. 

RCCURSOS DIDRTICOS: Conceitos 

e exemplos praticos, atraves de 

Micros e Telcro de 72" 

CURSOS F€CHRDOS € RB€RTOS 

CONTriTOSP€LOT6L:(0n) 

285-01 32 - fil. Santos, 336 - Cj 42 

C€P01418-SP 



TECNICAPERT 



605 
610 



625 
630 

635 

640 

645 

650 

655 

660 

665 

670 
675 

680 

685 

690 
695 

700 

705 
706 

710 



IF Z = THEN PRINT 'NAO EX 
ISTE EBTE NUMERO": I- OR J = 1 

TO 2000: NEXT J"S GOTO 550 
PRINT = PRINT "A DURACAO ATU 
AL E ";ADCK,3) 

PR IN I : INPUT " A NOVA DUR AC 
AO E ";AS:A = VAL CAS): IF 
A < GOTO 610 
AD(K,3) «■ A: PRINT : PRINT : PRINT 
"0 RECIIRSO ATIJAL E ";ADCK,10 
) 
PRINT : INPUT "0 NOVO RECURS 

E "JA4-.A = VAL CAS): IF A 
< GOTO 620 

AD<K,10> = A: GOTO 550 
REM »*» SELECAO DA TABELA D 
E EVENTOS «** 

PRINT : PRINT : PRINT " " TAB ( 
12); "TABELA DE EVENTOS" 
PRINT : PRINT " EM ORDEM ASC 
ENDENTEs " 

PRINT : PRINT TAB ( 10)"i.EV 
ENTOS " 

PRINT : PRINT TAB < 10>"2,DA 
TA CEDO " 

PRINT : PRINT TABC 10>"3.DA 
TA TARDE " 

PRINT : PRINT TAB ( 10>"4.TE 
MPO DE DURACAO": PRINT 
PRINT = INPUT "NUMERO DE ORD 
EM ";AS:S = VAL (AS): IF S < 

1 OR S > 4 GOTO 665 

FOR J = i TO TEsSRCJ) = J: NEXT 
J: IF S = i GOTO 700 
PRINT " EVENTOS SELECIONADOS 
"IS ■= S - l: FOR J ■ i TO T 



^ i TO TE 
= ET<SR<K> 



"?: PRINT 
;K + SB; TAB( 27>>» 
THEN GOSUB 740: GOTO 



730 
735 

755 
760 

765 
77<b 
775 
780 
785 
790 
795 
800 
805 
810 

815 
820 

825 

830 



E - 1: FOR K = J 
IF ET<SR<J>,S> < 
r S> GOTO 690 
A = SR(J):SR<J) = SRCK):SRCK) 

= A 
NEXT K: NEXT J 
REM »»« EXIBICAO DA TABELA 
DE EVENTOS »#* 
PRINT " " TAB< 12) "TABELA DE 

EVENTOS " 
PRH 1 

PRINT : PRINT : PRINT TAB( 
22); "TABELA DE EVENTOS": PRINT 
: PRINT 
Z o OtLN = 0: FOR J = 1 TO TE 
:LN = LN + is IF LN > 48 THEN 

PRINT TAB( 15>;NL1S: PRH 
: GOSUB 1590 

IF Z = THEN PRINT TAB < 1 
5>s"EVENT0S DC DT 

FOLGA": PRINT TAB < 15) ;N 
L1S:Z = i 
K = SR<J>: PRINT 

TAB( 15): 

IF N = 1 
735 

PRINT ETCK.l); TABC 34>rET(K 
,2); TAB( 41>;ETCK,3> 
NEXT : PRINT TAB < 15);NL1$: 

PRINT : PRH 0: GOSUB 1520= GOTO 
1420 
REM »«* ORDENACAO DA TABELA 

DE.JATIVIDADE *** 
PRltfjf : PRINT : PRINT : PRINT 
" " TAB< 12)f"TABELA DE ATIV 
IDADES": PRINT 

PRINT : PRINT "EM ORDEM ASCE 
NDENTE : " 
PRINT TAB( 10>;"1.ATIVIDADE 

PRINT TAB< 10) ;"2. DURACAO " 

PRINT TAB( 10) ;"3. ULTIMA DA 
TA DE INICIO " 

PRINT TABC 10) ;"4. ULTIMA DA 
TA DE TERM I NO" 
PRINT TAB< 10);"5.PRIMEIRA 
DATA DE INICIO " 
PRINT TAB( 10>;"6.PRIMEIRA 
DATA DE TERMINO " 
PRINT TAB( 10) ;"7. FOLGA TOT 
AL" 

PRINT TABC 10) ;"8. FOLGA L1V 
RE" 

PRINT : INPUT "NUMERO DE ORD 
EM ";A$:S = VAL (AS): IF S < 
1 OR S > 9 GOTO 810 
S = S •• 1: IF S = 2 THEN S = 
1 

PRINT': PRINT "ATIVIDADES SE 
LECIONADAS": FOR J = i TO TA 
:SR(J> = J: NEXT J: IF S = 1 
GOTO 850 
FOR J = 1 TO TA - l: FOR K = 
J + i TO TA 

IF AD(SRCJ),S> < = AD<SR(K) 
,S> GOTO 840 



835 



840 
845 



860 



A = SRCJ):SRCJ) = SRCK):SRCK) 
= A 
NEXT K: NEXT J 
REM *«» EXIBICAO DA TABELA 
DE ATIVIDADE POR NUMERO DE D 

PRINT : PRINT " " TAB ( 12)"T 
ABELA DE ATIVIDADES": GOSUB 
1620: IF N = 1 GOTO 905 
Z = 0:LN = 0: FOR J = 1 TO TA 
:P = SR(J):F = INT CADCP.l) 
/ 1000):T = AD<P,i> - F » 1 
000 + SB 
F = F + SBslS = STRS CF):I1S 
= STRS <T)sBS = IS + "-" -t- 
IIS 
LN = LN + Is IF LN > 48 THEN 

PRINT TAB< 5>jLNS: PRH 0: GOSUB 
1590 

PRH is IF Z = THEN PRINT 
: PRINT : PRINT : PRINT s PRIr., 
: PRINT : PRINT : PRINT " " TAB< 
37);" TABELA DE ATIVIDADES - 

EM TERMOS DE DIAS": PRINT 
s PRINT TAB( 5>;LNS 
IF Z = THEN PRINT TAB ( 2 
6);"ATIVIDADE DUR 

UDI UDT 
REC": PRINT 



890 
895 



940 
945 



950 

955 
960 
965 



PDI PDT 
FL FT 

TAB< 5>;LNS 
IF ADCP.2) = 1 THEN PRINT TABC 
5);8S;"»";s PRINT TAB ( 11); 
ACS(P);s GOTO 890 
PRINT TABC 5);BS; TABC 11); 
ACSCP>» 
Z = 64: PRINT TABC 41) 
FOR K = 3 TO 10:D$CK) = STRS 
CADCP,K)):Zi ■ 6 - LEN CDSC 
K>> + l: PRINT SPCC Zl); STRS 
CADCP,K)>; 
NEXT K: PRINT : NEXT J: PRINT 

TABC 5>;LNS: PRH 0: GOSUB 1 
520: GOTO 1420 
PRH l:Z = 0:LN = 0s FOR J ■ 
1 TO TA:P = SRCJ):F = INT C 
ADCP r i) / 1000):T = AD(P.i) - 
F » 1000 + SB 
F = F + SBsGS = STRS CF):G1S 

■ STRS <F)SG1S = STRS CT> 
:AS = 6S + "-" + GiS 
LN = LN + i: IF LN > 48 THEN 

PRINT TABC 5);LN$: PRH 0: GOSUB 
1590 

IF Z » THEN PRINT : PRINT 
: PRINT : PRINT : PRINT : PRINT 
: PRINT : PRINT " " TABC 37) 
;"TABELA DE ATIVIDADES - EM 
TERMOS DE DATAS": PRINT : PRINT 

TABC 5>;LNS 
IF Z = THEN PRINT TABC 2 
6>;"ATIVIDADE 

DUR PDI PDT 

UDI UDT": PRINT 

TABC 5);LNS 
IF AD(P.2> = 1 THEN PRINT TABC 
5>;AS;"»";: PRINT TABC 11); 
ACSCP);: GOTO 940 
PRINT TABC 5>.;AS; TABC 11 > ; 
ACSCP >f 
GOSUB 280 
Z = 12: PRINT TABC 53);:L5S = 

STRS CADCP,3)):L6 = LEN CL 
>S):L7 = 3 - L6 + l: PRINT SPCC 
L7); STRS (AD(P,3)>; 
FOR K = 4 TO 7:ND = AD(P.K) + 
TD - l: GOSUB 35:L1 = 10 - LEN 
CL2S) + 1: PRINT SPCC Li);L 
2S; 
NEXT K: PRINT : NEXT J: PRINT 

TABC 5);LN% 
PRM 0: GOSUB 1520: GOTO 1420 



REM **« EXIBICAO DAS ATIVID 

ADES CRITICAS »#« 
970 PRINT : PRINT " " TABC 10>"A 

TIVIDADES CRITICAS" 
975 L = 0:LN = 0: FOR J = 1 TO TA 

:LN = LN ■» l: IF LN > 48 THEN 
PRINT TABC 5);LNS: PRH 0: GOSUB 

1590 



980 
985 



PRH 1 

If- Z = THEN 

: PRINT 
: PRINT 



PRINT : PRINT 
PRINT : PRINT : PRINT 
PRINT " " TABC 37) 
"ATIVIDADES CRITICAS": PRINT 
: PRINT TABC 5);LNS 
990 IF Z = THEN PRINT TABC 2 
6); "ATIVIDADE 

DUR DATA DE INICIO D 
IAS CORRIDOS": PRINT TABC 5 
);LNS 
995 Z = 1 
1000 IF ADC J..'.') ■ (iOIC) ,025 



1035 
1040 



104t 



1005 F = INT (ADCJ.i) / 1000)sT = 
ADCJ.i) - F « 1000 + SB:F = 
F + SB 
1010 J$ = STRS CF):KS = STRS CT 

>:AS •= JS + "-" + KS 
\015 PRINT TABC S);AS; TABC 11) 

;ACSCJ)> TABC 48);:L8S = STRS 
<ADCJ,3)>:L9 = LEN CL8S):L0 
=' 6 - L9 + i: PRINT SPCC L 
0); STRS CADCJ.3)); 
1020 ND = ADCJ.6) + TD - ii GOSUB 
35:M1 = 15 - LEN CL2S) + U 
PRINT SPCC Mi);L2S;:VS = STR< 
<ADCJ,6)):T = LEN CVS):T1 ■ 
10 - T + is PRINT SPCC Ti); 
SIRS CADCJ r 4>> 
1025 NEXT J: PRINT TABC 5);LNS: 
PRH 0: GOSUB 1520: GOTO 142 

1030 REM »** GRAFICO DE GANTT * 

GOSUB 1855 

FOR Ji = 1 TO ADCTA.7) STEP 
60:J3 = Ji + 59 
Z = 0SLN =• 0: FOR J = 1 TO T 
A:F „= INT CADCJ.i) / 1000): 
T = AD(J.l) - F * 1000 + SB 
1050 F = F + SB:JS = STRS CF):KS 
= STRS CT):B$ = JS + "-" + 
KS 
1055 LN = LN + 1: IF LN > 48 THEN 
PRINT TABC 15);"========== 

";LNS: PRH 0: GOSUB 1590 
PRH U IF Z = 1 GOTO 1105 
PRINT : PRINT s PRINT : PRINT 
: PRINT t PRINT : PRINT s PRINT 

TABC 47); "GRAFICO DE GANTT" 
: PRINT s PRINT TABC 15);'"= 
=========" ;LNS 

PRINT TABC 37);"ATIVIDADE 
";J1» SPCC 3 
);Ji + 4; I FOR J2 = 9 TO 59 STEf 
5 
1075 J9 ■= J2 + Jl:PS = STRS CJ9) 
:Bi = LEN CPS>:82 = 4 - Bi + 
i: PRINT SPCC B2);J9;: NEXT 
J2: PRINT 
GOSUB 280: GOSUB 1645 
PRINT 

TABC 59);" +";: FOR 
TO 59 STEP 5 
" +-";: NEXT -J2: PRINT 



1060 
1065 



1070 



1080 
1085 
1090 

1095 



1100 



PRINT 
J2 * 4 

PRINT 
sZ = 1 

PRINT 



> ' 
THEN 



> ' 
THEN 



" AND VESC 
PRINT " ": 



TABC 64);: FOR IJ1 =- 
Ji TO J3: PRINT VESCIJ1);: NEXT 
Ui: PRINT 
IF ADCJ,2) = 1 THEN PRINT 
TABC 15>;BS;"»";s PRINT TABC 
21>;ACS(J);: GOTO 1115 
PRINT TABC 15>;B$; TABC 21 
>;ACSCJ); 

IF (ADCJ.4) C JI AND ADU.5 
> < Ji) OR. CADCJ r 4> > J3 AND 
ADCJ.5) > J3> GOTO 1185 
1120 AS = ">": IF ADCJ.2) = 1 THEN 
AS = "«" 

Wl = LEN CACSCJ)):U = 41 - 
Ui + 2 
PRINT SPCC W); 
FOR K = Ji TO J3: IF K < AD 
CJ,4) OR K > ADC J, 5) THEN 11 
45 
GOTO 1160 
IF VESCK) C 
K) C > "F' 
: GOTO 1155 
PRINT " "; 
NEXT K 

FOR K = JI TO J3: IF K > 
ADCJ.4) AND K C = ADC J, 5) 
ADC J, 3) C > THEN 1170 
GOTO 1180 
IF VESCK) < 
K) C > "F" 
GOTO 1180 
PRINT " "; 
NEXT K 
PRINT : NEXT J: PRINT TABC 

15) ;"==========". LN5: |,|,„ e . 

GOSUB 1520: NEXT Ji 

PRH l: PRINT : PRINT : PRINT 
= PRINT : PRINT : PRINT : PRINT 
: PRINT TABC 44 > ;"FERIADOS 
NO PER 1000": PRINT : PRINT TABC 
44 >»"===================": PR in, 

: PRINT 

FOR INA = 1 TO 01: IF GNDCI 
NA) C =2 OR GNDCINA) ) J3 THEN 
1205 

PRINT TABC 47);GNpCINA);:N 
D = GNDCINA) + TD - 1: GOSUB 
35: PRINT "-";L2$;"-";: GOSUB 
1660: PRINT N4: PRINT : NEXT 



1105 



1110 



ui: 



1125 



1130 
1135 



1140 
1145 



1150 
1155 
1160 



1165 
1170 



1175 
1180 
1185 



1190 



1195 



1200 



AND 



" AND VESC 
PRINT AS;: 





INA 


1 4!:,0 


PRINT ":...MO!ilRA Aii AM VI DAD 


= VAL C MIDS CL2S,4,2)):D = 


ta«s 


NEXT INA: PRINT : PRINT TATtC 




Lii CRIT T( AS' 


VAL C LEFTS CL2S,2>> 




/)/,);" i = = v-= = = = = = = = = = ., = = = = ": PRH 


14:.:. 


PRINT 'V.-MOiilRA Oli KliCIIRHO:; 


1665 ME = M:ANi = Y:DI = D 




0: liOSUO 1520: GOTO 1420 




U ML I /ADOS " 


1670 IF ME > 2 THEN 1685 


1211 


REM xx* EXIBICAO DO GRAFIC 


1460 


PR INI "/..C.IIAMA A.RIDI- DC) Dl 


1675 ME = ME + 12 




1)1 RECURSOS UTTLIZADOii »»x 




SCO " 


1680 AN1 = AN1 - 1 






144:. 


PRINT "O.GIIARDA A REDE NO 1) 


1685 AN1 = AN1 t 1900 


12 15 


JB ADC T A, 5) - 1: FOR J = 1 




ISCO " 


.690 NS = DI + 2 x ME + INT C.6 x 




TO J2 ST LP 30: PRH 1: PRINT 


1470 


PRINT "9. SAIDA DO PROGRAMA 


(ME * 1)) + AN1 + INT CAN1 / 




: PRINT : PRINT : PRINT : PRINT 




" 


4) - INT CAN1 / 100) + INT 




: PRINT : PRINT : PRINT TABC 


1475 


PRINT : INPUT "(JIJAL SHI N 


CAN1 / 400) + 2 




15);"RECURS0S IJT 1LIZAD0S" : PRINT 




IIMERO ";AS 


1695 NS = INT CCNS / 7 - INT CN 




: PRINT IAUC 15);L.NS ' 


1480 


A = VAL CAS): IF A < OR A 


S / 7)) x 7 + .5) 


1220 


PRINT TABC 25);RS$: PRINT 




> V GOTO 1420 


1700 IF CNS) > THEN 1710 




IAUC )5);LNS: PRINT TABC i 


14U5 


IF <A = OR A = 7) AND NW = 


1705 NS = " ": GOTO 1765 




5);" 1"; : FOR K = 5 TO 




1 GOTO 1500 


1710 IF NS > 1 THEN 1720 




20 STEP 5: PRINT SPCC 3);: PRINT 


1490 


IF CCA > AND A 4 j»> S*R ft. = 


1715 NS = " ": GOTO 1765 




TABC K + 1 );K;: NEXT K 




8) AND NW = GOTO- 1505 


1720 IF NS > 2 THEN 1730 


1225 


PRINT : PRINT TABC 15);"DI 


1495 


NW = is GOTO 1510 


1725 NS = "S"s GOTO 1765 




AS" 


1500 


PRINT : PRINT " A REDE JA E 


1730 IF NS > 3 THEN 1740 


1230 


J3 = J + 29 :Z = 21: FOR Ji = 




ST A NA MEMORIA ": GOSUB 1520 


1735 NS = "T"s GOTO 1765 




J TO J3: IF JI > J2 THEN Ji = 




: GOTO 1420 


1740 IF NS > 4 THEN 1750 




J3: GOTO 1255 


1505 


PRINT : PRINT " A REDE NAO 


1745 NS = "Q": GOTO 1765 


1235 


X = 0: PRINT : PRINT SPCC 1 




EST A NA MEMORtA "t GOSUB 152 


1750 IF NS > 5 THEN 1760 




/); 




0: GOTO 1420 


1755 NS = "0": GOTO 1765 


1240 


FOR K = 1 TO TA: IF Ji > = 


1510 


ON A + 1 GOTO 100,520,635.7 


1760 NS = "S": GOTO 1765 




ADCK.4) AND Ji C ^= ADCK.5) THEN 




60,1035,970,1215,1245,1330,1 


1765 RETURN 




X = X + ADC K, 10) v 




395 


1766 REM **« CALCULO DOS FERIAD 


1245 


NEXT K: PRINT TABC lS:);Ji; 


1515 


REM *** PAUSA «** 


OS xxx 




: FOR K = 20 TO i STEP - 1: 


1520 


PRINT : PRINT TABC 8)"PRES 


1770 G0SU8 280 




PRINT TABC Z);: IF K < h 




SIONAR ESPACO PARA CONIINUAR 


1775 FERIADOS = "2501840503840603 




X THEN PRINT "»"; 




" 


8407038420048421048430048401 


1250 


NEXT K 


1525 


GET AS: IF AS < ) " " GOTO 


0584210684220684070984121084 


1.255 


NEXT Ji: PRINT : PRINT TABC 




1525 


0211841511841611842412842512 




15);LNS: PRH 0: GOSUB 1520: NEXT 


1530 


RETURN 


84311284" 




J: GOTO 1420 


1535 


REM **» INICIALIZAR *»» 


1780 DMAS = SDS 


1260 


REM **» CHAMAR A REDE DO D 


1540 


LNS - "===================== 


1785 FERIADOS = FERIADOS + DMAS 




ISCO *«* 




============================ 


1790 = LEN (FERIADOS) :0i = 


1265 


INPUT " NOME DA REDE ";NUS 






6 


1270 


D$ = CHRS C4) 




=======================" : rs$ 


1795 M5 = 1 


1275 


PRINT DS;"0PEN";NW4 




= "RECURSOS" 


1800 FOR M3 = 1 TO - 5 STEP 6 


1280 


PRINT D5;"READ";NWb 


1541 


NL1S = "==================== 


1805 Ml = M3 + 2JM2 = M3 + 4 


1285 


INPUT TE.TA.SDS 






1810 LDIA = VAL < MIDS CFERIADOS 


1290 


GOSUB 1600 


1545 


D1S ■-- "312831303130313130313 


, M3,2) ) 


1295 


FOR J = i TO TE: FOR K = 1 TO 




031" 


1815 LMES = VAL C MIDS CFERIADOS 

,M1,2>> 
1820 LANO = VAL C MIDS CFERIADOS 




3: INPUT ETCJ.K): NEXT K: NEXT 
J 


1550 


D2S = "312931303130313130313 
031" 


1300 


FOR J = 1 TO TE: FOR K = 1 TO 
TE: INPUT PTCJ.K): NEXT K: NEXT 
J 

FOR J = 1 TO TA: FOR K = 1 TO 


1555 


D3S = "000031059090120151181 
212243273304334":TFS = "=":F 
FS = "+" 
J = 0:IC = 0:D1 a 0--D2 = 0:D3 


,M2,2)> 
1825 LTD2 = LDIA + CLANO - 72) » 
365 + INT C CLANO - 69) / 4) 


1305 


1560 


+ VAL C MIDS CD3S.3 « LMES 
- 2,3>) 
1830 IF LMES ) 2 AND (1900 + LAN 




10: INPUT ADCJ.K): NEXT K: NEXT 
J 

FOR J = i TO TA: INPUT ACSC 
J): NEXT J: INPUT SB,SD 




m 0:YN = 0:ND = 0:DN = 0:TD 
-= 

Ai = 34SA2 = 365:A3 = 3:A4 = 
4:A5 = 31:A6 = 72:A7 = 1:A8 = 


1310 


1565 


0) / 4 = INT CC1900 + LANO) 
/ 4) THEN LTD2 = LTD2 + 1 
1835 AB9 = LTD2 - TD + 1 : IF AB9 < 


1315 


PRINT DS;"CLOSE";NWS 




n 


THEN 1845 
1840 GNDCM5) = AB9:M5 = M5 + 1 


1320 


GOTO 1420 


1570 


C = 0:R = 0:X = 0:A = 0:D = 


1325 


REM *** GUARDAR A REDE NO 




0:M = 0:Y = 0:SD = 0:F = 0:T 


1845 NEXT M3 




DISCO *»* 




= 0:S = 0SP = 0:AN = 


1850 RETURN 


1330 


INPUT "NOME DA REDE ";NWS 


1575 


SB = 0:TA = ©:TE = 0:LN = 0: 


1851 REM XXX MONTAGEM DO VETOR 


1335 


DS = CHRS C4> 




NW = 0:N ^ 


CALENDARIO *»* 


1340 


PRINT DS;"OPEN";NUS 


1580 


AS = "":BS = "":DS = "":SDS = 


1855 DIM VE$(240),GNDC240> 


1345 


PRINT DS;"WRITE";NUS 




"":D$ = "":CRS - CHRS <13>: 


1860 GOSUB 280: FOR Nl = 1 TO 24 


1350 


PRINT TE: PRINT TA: PRINT S 




RETURN 


0:ND =. Ni + TD - 1 




DS 


1585 


REM xx» LINHA DE CORRESPON 


1865 GOSUB 35 


1355 


FOR J = 1 TO TE: FOR K = 1 TO 




DENCIA DA TELA »»* 


1870 GOSUB 1660 




3: PRINT ETCJ.K): NEXT K: NEXT 


1590 


GOSUB 1520:LN = l-'Z = 0: RETURN 


1875 VESCN1) = NS 




J 






1880 NEXT Nl 


1360 


FOR J = 1 TO TE: FOR K = 1 TO 


1595 


REM xx* DIMENSIONAMENTO DA 


1885 GOSUB 1770 




TE: PRINT PTCJ.K): NEXT K: NEXT 




S MATRIZES *#* 


1890 FOR MN1 = 1 TO 240:AB1 = GN 




J 


1600 


DIM ACS(TA) r PT(TE,TE),AD<TA 


DCMN1) 


1365 


FOR J = 1 TO TA: FOR K = 1 TO 




,10),ETCTE,3) 


1895 IF AB1 < =2 OR AB1 > 240 THEN 




10: PRINT ADCJ.K): NEXT K: NEXT 


1605 


Z = TEs IF TA > TE THEN Z = 


1905 




J 




TA 


1900 rOS = "F":VE$CAB1> = FOS 


1370 


FOR J = i TO TA: PRINT ACSC 


1610 


DIM SRCZ): RETURN 


1905 NEXT MN1 




J);CRS;: NEXT J: PRINT SB;CR 


1615 


REM x#» ESCOLHA DC) FORMATO 


1910 FOR J = 1 TO TA 




S; 




EM DATA OU NUMERO DE DIAS * 


1915 FOR K = 1 TO 240: IF K ( AD 


1375 


PRINT SO: PRINT TD: PRINT D 




x« 


CJ,4) THEN 1925 




S; "CLOSE"; NWS: GOTO 1420 


1620 


IF SD = 1 THEN N = 2: GOTO 


1920 GOTO 1940 


1380 


PRINT DS; "CLOSE NWS" 




1640 


1925 IF VESCK) C > " " AND VESC 


1385 


GOTO 1420 


1625 


PRINT : PRINT "TABELAS EM T 


K> < > "F" THEN 1960 


1390 


REM **■« SAIDA DO PROGRAMA 




ERMOS DE:-i. DATAS " 


1930 AD (J, 5) -■= ADCJ.5) + is ADC J, 4 




*»* 


1630 


PRINT TABC 23>"2.DIAS": PRINT 


) = ADCJ.4) + 1:AD(J,.6> = AD 


1395 


PRINT : PRINT "VOCE TEM CER 






<J,6) + i:ADCJ,7) = ADCJ.7) + 




TEZA DE QUE GUER PARAR ? <S/ 


1635 


PRINT : INPUT "QUAL SEU N 


1 




N) " 




UMERO? ";AS:N = VAL (AS): IF 


1935 GOTO i960 


1400 


GET AS: IF AS = " "GOTO 14 




N < 1 OR N ) 2 GOTO 1635 


1940 IF K > = AD(J,4) AND K < = 




00 


1640 


RETURN 


ADCJ.5) THEN 1950 


1405 


IF AS C > "S" GOTO 1420 


1641 


REM xxx IMPRESSAO DAS DATA 


1945 GOTO i960 


1410 


PRINT "FIM": END 




S xxx 


1950 IF VESCK) C > " " AND VESC 


1415 


REM *xx MENU «*« 


1645 


ND = JI + TD - ■ is GOSUB 35: PRINT 


K) < > "F" THEN GOTO i960 


1420 


PRINT : PRINT : PRINT " " TABC 




TABC 62>;L2S;:DA = LEN CL2 


1955 ADCJ.5) = ADCJ.5) + 1:ADCJ,7 




7)"0PC0ES" 




S)=DA1 = 5 - DA * 5: PRINT SPCC 


) = AD (J, 7) + i 


1425 


PRINT "0.CONSTRUCAO DE UMA 




DAI); 


, I960 NEXT K 




REDE " 


1650 


FOR J6 - 9 TO 59 STEP 10:J7 


• 1965 NEXT J 


1430 


PRINT "i.CORRECAO DE DADOS 




= J6 + J1SND = J7 + TD - is 
GOSUB 35: PRINT L2S;:DA = LEN 


1970 RETURN 


1435 


PRINT "2.M0S1RA A TABELA DE 
EVENTOS " 




CL2S):DAi = 5 - DA + 5: PRINT 
SPCC DAD;: NEXT J6 




1440 


PRINT "3.M0STRA A TABELA DE 


1655 


RETURN 






ATIVIDADES " 


1656 


REM x«x CALCULO DO DIA DA 




1445 


PRINT "4.M0STRA GRAFICO 




SEMANA *x* 






E GANTT E FERIADOB" 


1660 


Y = VAL C RIGHTS CL2S,2))sM 


■ 

m 



28 



MICRO SISTEMAS, abril/85 



MICRO SISTEMAS, abril/85 



29 



Complete seu sistema de redes PERT com um Numerador 
Topologico que apronta seus dados para rodar no programa 
Analise do Caminho Critico, da Microsoft 



Renumerador 
Topologico 



Evandro Curvelo Mora 



Amaiona dos programas para calculo do caminho cri- 
tico (em redes Pert) aceita apenas o grafo topologi- 
co. programa a seguir, desenvolvido para os equi- 
pamentos da linha Sinclair com 16 kb, renumera um grafo to- 
pologicamente. 

Um grafo e dito topologico se existir um arco do no I para 
o no J. Este arco e tal que J> I, qualquer que seja o arco (I, 
J), ou seja, so podem existir arcos que saiam de um no numera- 
do para outro no de numeracao superior. Veja as figuras 1 e 2. 
grafo da figura 1 e topologico, pois todo arco que sai de 
um no vai para outro no de numeracao superior. Ja no grafo 
da figura 2 isto nao acontece, pois o arco 5 sai do no 4 para o 
n6 3. 

Um grafo nao topologico (figura 2) nao e aceito pelo pro- 
grama Analise do Caminho Cn'tico, da Microsoft, para a linha 
Sinclair. Se o grafo tern poucos nos e poucas atividades (arcos), 
pode-se renumera-lo manualmente. Porem, redes reais exigem 
normalmente muitos nos e/ou arcos, o que torna o problema 
muito difi'cil, dai' a justificativa deste artigo. Na Pesquisa Ope- 
racional, uma das maneiras de se representar um grafo e a cha- 



mada Matriz de Adjacencia, e o programa apresentado e um 
manipulador desta matriz. 

Com o numerador topologico ja na RAM do seu micro, 
inserindo-se o grafo da figura 2, tem-se como resposta: 





Renumerador Topologico 



1 REM XXXXXXxxxxv ■ ■ ■ ■ 

£ REM 

3 REM SNUMERPDCR TOPOLOGICO* 

4. REM = EUPNDRO CURUELO-84 = 

5 REM 

6 PRINT PT 9 4; " NUMERPDOR TO 
POLOGICO" 

7 FOR 1=1 TO £00 
S NEXT I 

20 LET 5C=22 

30 GOSUB 950 

40 PRINT AT 9,0,"QURL NUMERO 
DE NOS DO GRPFO ?" 

50 INPUT P 

50 DIM H ip .P.! 

70 DIM StPJ 

80 D IM U ( P ) 

90 DIM R (P; 
100 LET K=0 
110 LET SO =10 
120 SOSUB 950 

130 PRINT PT 9,l:"QUPL NUM. D 
E PTIUIDPDE5 7" 
140 INPUT N 
150 FOR X=l TO N 
160 LET 50=4 
170 GOSUB 950 
180 PRINT PT 15,4; "PTIUIDPDE => 

^190 PRINT PT 17,4: "NO INICIPL ? 

200 INPUT I 
210 PRINT 



"PGUPRDE 



400 

410 LET 

420 FOR 

4 30 FOP 



"; i 



220 PRINT PT 19.4, "NO FINPL ' 

230 INPUT U 

240 PRINT "= = => ";,j;P,T 21.4. "CO 
NFIRMP ?(S/N) " 

250 IF INK.EY$ = "" THEN GOTO 250 

260 IF INKEY$="S" THEN GOTO 300 

270 LET SC = 10 

280 GOSUB 960 

290 GOTO 1 80 

300 LET SC = 10 



310 GO SUB 960 
32© LET ft '.I,. J: =1 
3 30 NEXT X 
340 LET SC=21 
350 GOSUB 960 
360 PRINT PT 10 , 10; 
370 FOR X=l TO 40 
380 NEXT X 
590 FPST 

>,=0 

•J = l TO P 
1=1 TO P 

440 LET X=X+P>. I,.J' 

450 NEXT I 

460 LET 5 (*JJ = X 

470 LET X=0 

480 NEXT J 

490 FOR 1=1 TO P 

500 LET Will =1 

510 NEXT I 

520 FOR 1.-1 = 1 TO P 

530 FOR X=l TO P 

540 IF :,i='.' i.«. I AND 5lU)r0 THEN G 
0T0 580 

550 NEXT X 

560 NEXT U 

570 GOTO 670 

530 LET K*K+1 

59© LET U (Xi =0 

600 FOR 1=1 TO P 

610 IF H(U.,Iiol THEN GOTO 640 

620 LET S HI =S ill -1 

630 LET P (W, I) =0 

640 NEXT I 

650 LET R i.r I =:.: 

560 GOTO 520 

670 IF K=P THEN GOTO 710 

580 SLOW 
_*90 PRINT P: 9.4, "0 GRPFO NPO P 
ODE SER";PT 11 , 2; " NUnERPDO TOPOL 
OGICPMENTE" 

T 00 GOTO 890 



'10 SLOW 

•20 PRINT PT 4; 



730 PRINT PT 5,4; "NUMERPCPO TOP 
OLOGICP" 
740 PRINT PT 8,3;" 



R ( K 



PRRP CON 



750 LET 1=1 

-50 FOR K=I TO 1+5 

770 PRINT 

780 IF K>P THEN GOTO 

790 PRINT TfiB 5, "NO 
= • " ; K 

S00 NEXT K 

810 PRINT PT 20,0, "= 
T IMUPR PRESS IONE " .: PT 21 , 10 | " UMh 

320 IF INKEY$="" THEN GOTO 820 

830 LET 1=1+6 

840 LET 50=22 

850 GOSUB 960 

86 PRINT PT 3,3 

870 GOTO 750 

S30 PRINT TPB 7;"*** FIM ***" 

390 PRINT . ^-~-r 

900 PRINT PT 21,0:"DESEUH RuDhR 

NOUPMENTE 7 (S/N) " 

910 IF INKEY4="" THEM SOTO 910 

920 IF INKEY$="N" THEN STOP 

930 RUN 20 

940 SPUE "NUMTOP" 

950 PUN 

950 FOR U=i TO SC 

■570 LET E=USR (165141 

980 NEXT U 

990 RETURN 
1000 FOR 1=16514 TO 16528 
1010 INPUT P$ 

1020 POKE I. CODE P$*1S+C0DE R$12 
I -476 

1030 NEXT I 
1040 PRINT PT 10.12. "FIM" 



Ou seja. os nos 1 e 2 nao precisam ser rcnumerados;entre- 
tanto, o no 3 deve ser renumerado com ordem 4, e o no 4 com 
ordem 3. Isto reduz o grafico da figura 2 ao grafico da figura I , 
que e topologico e roda, sem problemas, no Pert da Microsoft. 

Experimente dar uma numeracao topologica ao grafo da fi- 
gura 3. 

Na tela, ao rodar, o programa pede o niimero de nos do gra- 
fo; entao entra-se com 5 e <NHWL1NE> . Logo apos, ele pede 
o niimero de atividades e tern como resposta 8. A seguir, e 
pedido, para a atividade 1 , o no inicial; digite 5. Neste momen- 
to, e pedido o no final, entao, responda com 2. Depois, e pre- 
ciso confirmar a resposta entrada com sim<'S>ou nao<N>; 
fa9a o mesmo com todos os arcos. Ao confirmar a entrada 
do ultimo arco, o programa pede que aguarde e entra em 
FAST, retornando ao SLOW ja com resposta. Note que, neste 
caso, nao e possi'vel a numeracao topologica, uma vez que o 
grafo da figura 3 representa um ciclo (saindo do no 5, seguindo 



Figura 2 
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Figura 3 
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as atividades 2,663c voltando ao n6 5). Tente trocar agora o 
sentido da atividade 3, de modo que saia de 5 e va para 3, e ve- 
ja a resposta. Como curiosidade, experimente, tambem, ten- 
tar renumerar topologicamente um grafo ja topologico. Tome 
como exemplo o grafo da figura I . 

INSTRUgOES PARA DIGIT A^AO 

Crie uma linha REM com 15 caracteres quaisquer. Isto per- 
mite guardar uma rotina em linguagem de maquina que Simula 
o SCROLL, sem as desvantagens que o SCROLL normal apresen- 
ta. A seguir, digite as linhas 1000 a 1040. De um GOTO lOOOe. 
ao aparecerem as aspas, entre com os seguintes valores em he- 
xadecimal (apos o 2A, digite <NEWLINE> e assim por diante): 

? fl il t'z. ?- 1: £1 ^ S 19 Z ''~ 0i D6 

Ao terminar, se tudo correr bem, retire as linhas 1000 a 
1040 e entre com o resto do programa ate a linha 990. Para 
evitar o risco de digitar a linha 1 ,'digite POKE 16510, 0.<De um 
LIST e seu programa estara pronto. E so testar com os exem- 
plos citados e gravar com GOTO 940. 
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Para empresas que trabalham com grande numero de duplicatas, este progra- 
ma para a linha TRS-80 Mod. Ill vai agilizar o Departamento Financeiro. 



Em dia com as 
duplicatas 



Paulo de Carvalho. 



Este programs permite ao usui- 
rio um controle de duplicatas 
pendentes de pagamento, alem 
de oferecer as opcOes de con- 
sulta por sacado, por data, por sacado 
em determiriado periodo, listagem geral 
de pendencias (vincendas/vencidas), lis- 
tagem de duplicatas vencidas, baixar/de- 
letar e listagem de duplicatas baixadas 
(pagas). 

Ap6s digitado o programa, execute-o 
com RUN. Na tela, aparecera* Digite a 
data na forma AAMMDD, ap6s o que 
devera ser digitado o ano, mes e dia, nes- 
ta ordem, e sem qualquer separa^So. Es- 
sa regra deve ser seguida rigorosamente, 
pois isto facilita a pesquisa por data e a 
listagem de duplicatas vencidas. Ap6s a 
entrada da data, o programa mostrara' o 
menu principal, que da" acesso a 12 m6- 
dulos optativos, conforme pode ser vis- 
to a seguir: 

C B R A N C A 

ENTRADA DE DUPLICATAS ••■• 1 

LIBTAOEM/GE-RAL DUPLIC . ., - - 2 



LISTAGEM P/DATA 

LISTAGEM P/SACADO 

LISTAGEM P/SACADO E DA 
LISTAGEM DUP LIQUID AD A 
LISTAGEM DUP VENCIDAS. 
B A I X A R /" D E I. . E T A R D U P L I C , 

ALTER AR DADOS 

CONTINUAR ARttUIVO - 

GRAVAR ARQUIVO 

L.ER ARQUIVO 

DIGITE A OPCAO ? .. 



IA- 



3 
4 

5 

6 

7 

8 

9 

10 

ii 
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ENTRADA DE DUPLICATAS 

Ao digitar 1 e ENTER o programa 
exibira - o menu de entrada de duplicatas, 
formado pelos seguintes itens: 

• ITEM 1 — Vencimento — digitar na 
forma AAMMDD. 

• ITEM 2 - N9 Duplicata - Entrar 
com o niimero da duplicata, que devera 
ter no maximo quatro caracteres (9999). 
Evite tambem entrada de duplicatas 
com o mesmo niimero. 

• ITEM 3 — SituagSO — Durante a en- 
trada de duplicatas, o sistema aceitara" 
somente a situacSo 1 (um). Se o usua'rio 
digitar qualquer outro niimero o sistema 
retornara' ao item acima. 

• ITEM 4 - Banco/Cobrador - Digitar 
o codigo do Banco no qual a duplicata 
estiver em cobranca. No caso da cobran- 
9a estar na dependencia do favorecido, 
use o c6digo 111. Estes cbdigos na"o po- 
dem ultrapassar os tres caracteres. 

• ITEM 5 - Sacado - Entrar com 
nome do sacado, usando no maximo 22 
caracteres, contando os espa?os. 

• ITEM 6 - Valor - Digite o valor da 
duplicata de forma ininterrupta, pois o 
sistema formatara a saida. Ex.: para o va- 
lor Cr$ 388.900,00, digite Cr$ 388900. 
Na listagem, o sistema formatara' a saida 
para CrS 388.900,00. Quando a dupli- 
cata possuir centavos, use ponto antes 
dos centavos. Ex.: para o valor Cr$ 
388.900,88; digite CrS 388900.88. 
Ap6s digitar o valor e teclar ENTER, o 
sistema retornard ao menu de entrada e 



o numero sequential do topo da tela se- 
ra 1 2 e assim sucessivamente. Para voltar 
ao menu principal, tecle 9 no lugar do 
vencimento. 

LISTAGEM GERAL 

Atraves desta opcao o programa lista- 
ik todas as duplicatas pendentes de pa- 
gamento (vincendas e vencidas) em gru- 
po de oito, com sub-total acumulado. 
Quando aparecer a ultima duplicata do 
arquivo, sera" emitida a mensagem FJM, 
seguida do total geral. 

LISTAGEM POR DATA 

Este m6dulo permite pesquisar todas 
as dupbcatas com vencimento em deter- 
minado periodo. Assim, se o usuario de- 
sejar saber quais sa"o as duplicatas com 
vencimento entre 3 de agosto e 22 de 
outubro de 1984, basta digitar 3 seguido 
de ENTER, que o sistema perguntard: 
"Qual a data inicial?". O usuario devera", 
entao, digitar na forma AAMMDD, isto 
e, 840803; e teclar ENTER. Em seguida, 
o programa indagard "Qual a data fi- 
nal?". O usuano deverd digitar 841022 e 
teclar ENTER. No video aparecerd uma 
listagem semelhante a listagem geral. 

LISTAGEM P/SACADO 

Ao digitar 4, o sistema perguntard: 
"Qual o sacado?". O usua'rio deverd en- 
trar com o nome do sacado e o progra- 



ma iniciard a listagem de todas as dupli- 
catas existentes com aquele nome. 

LISTAGEM P/SACADO E DATA 

Entrando com a data de initio e fim 
do perfodo desejado, mais o home do 
sacado, o usua'rio obtera" uma listagem 
com todas as duplicatas do sacado em 
um perfodo estabelecido. 

LISTAGEM DUPLICATAS 
LIQUIDADAS 

Atravds desta opcSo, o usua'rio pode- 
li verificar todas as duplicatas liquida- 
das existentes em arquivo. A forma de 
liquidacSo serd comentada na opca~o 8. 

LISTAGEM DE DUPLICATAS 
VENCIDAS 

O ponto chave de comparacSb para a 
emissSo desta listagem e a entrada corre- 
ta da data na forma AAMMDD, solicita- 
da na abertura do sistema. A listagem se- 
r£ identica as fornecidas pelos itens an- 
teriores. 

BADCAR/DELETAR DUPLICATAS 

Ao digitar esta opcao, o sistema per- 
guntar& "Qual o n° da duplicata?" (por 
isso, deve-se evitar duplicatas com o 



mesmo numero). Uma vez dado o nii- 
mero, o sistema pesquisar^ e mostrara* 
no video todos os dados relativos a du- 
plicata, seguidos da pergunta "fi essa a 
duplicata a liquidar/deletar S/N?". Em 
caso positivo, o sistema exibmi duas op- 
90es: 2 — para liquidar; e 3 — para dele- 
tar. A diferen9a entre essas duas opfOes 
6 que na opcflb 2 o sistema liquidard a 
duplicata alterando automaticamente a 
situa95o de 1 (pendente) para 2 (liqui- 
dada) e manterd todos os dados no ar- 
quivo; enquanto na op9<To 3 ele altera- 
rd todos os itens numencos para zero e 
eliminara' todos os alfanumdricos. Isto 
poderd ser visto atraves das op9(5es 2 ou 
7. Embora os itens estejam com os cam- 
pos zerados, eles continuam ocupando 
espa90 na mem6ria RAM e no video, 
mas na"o se preocupe, pois isto seri re- 
gularizado quando for feita a grava9a"o 
dos dados no cassete, uma vez que o sis- 
tema isentard de grava9a*o todas as dupli- 
catas que estiverem com data de venci- 
mento zerada. 

Se houver no arquivo duas duplicatas 
com o mesmo numero, verifique, quan- 
do exibida no video, se 6 a que voce de- 
seja baixar. Caso contrano, digite N e o 
sistema iri pesquisar a pr6xima duplica- 
ta com o mesmo numero. Se for infor- 
mado o niimero de duplicata que na"o 
consta do arquivo, ser£ mostrada a 



mensagem DUPLICATA ENEXISTEN- 

TE, e ap6s alguns segundos, o sistema 
retornard ao menu principal. 

ALTERAC0ES 

Todos os dados de uma duplicata po- 
dera"o ser alterados com esta Op^Sb, ex- 
ceto a situa9a"o, que e' obrigat6ria. Todos 
os itens para altera9a"o devem seguir as 
mesmas normas da entrada de duplica- 
tas. Ap6s teclar 9, o sistema perguntard: 
"Qual o n9 da duplicata?". Entrando 
com o numero, serSb exibidos todos os 
dados vinculados dquela duplicata. O sis- 
tema perguntara "E esta a duplicata a 
alterar?" Se na"o for, tecle N e o siste- 
ma continual a pesquisa localizando a 
pr6xima duplicata com o mesmo nii- 
mero. 

Para fazer a altera95o nSb 6 necessa'- 
rio entrar com todos os dados novamen- 
te, mas apenas com os dados que se re- 
ferem ao item a ser alterado. Nos de- 
mais, tecle ENTER e o sistema desvia- 
ii para o prdximo campo. 

CONTINUAR ARQUIVO 

Se o usuano ji possuir um arquivo 
gravado em cassete com 50 duplicatas e 
desejar cadastrar outras 50, basta fazer ,_ 
a leitura de dados atraves da opcSb 1 2 e m 



EINCRIVELOQUE 

UM BOM PROGRAMA 

PODE FAZER. 



-o-o-o- 



-0-0- 



-0-0-0-c-o- 



-^-o-o-o-o-o-o- 



-©-©-©-0-0-00-0- 
0-0-0-0-0- 



-o-o-©-o-o-o-o-o-o- 
-o-cvo-o 



^0-0-0-0-0- 



-o-o-©-o-o-o-o-o-o-o- 



-o-o-o-o-o^-€>-e-& 



-o- 



O abaco, para quern domina sua tecnica, permite a execu^ao de contas 
aritmeticas com incrivel velocidade. 

Da mesma forma, quern possui um microcomputador e um bom programa 
economiza tempo, papel e aborrecimento. 

A Nasajon Sistemas, tern a sua disposicao mais de 50 programas como 
folha de pagamento, crediario, mala direta etc. . . . para aproveitar ao ma- 
ximo o que o seu microcomputador pode oferecer. 
Alem disso, a Nasajon Sistemas pode desenvolver programas especificos 
para a sua necessidade, seja ela qual for. 
Todos os nossos programas sao garantidos e atualizados. 
Entre em contato com a Nasajon Sistemas. Estamos sempre dispostos a 
conversar e esciarecer qualquer duvida que voce possa ter sobre infor- 
matica. 

E quando seu microcomputador estiver funcionando com um programa da 
Nasajon, voce vera as coisas incriveis que ele pode fazer. 



nci/cijon 



Av. RioBranco, 45-S/1311 - RJ 

CEP: 20090 

Tels.: (021) 263-1241 e 233-0615 



Voce encontra os programas NASAJON tambem nos seguintes enderecos: 

Rio de Janeiro: Casa Carson: 252-9191; 325-6458; 541-2345 e 252-2050 - R. 179 - Eldorado Computadores: 227-0791 - Bits e Bytes: 322-1960 

Salvador Officina: 248-6666 - r. 268 Sao Paulo: Microprocess: 64-0468 - Jundiai SP- Apoio Com. Informatica Ltda: 51-3778 - Tatui - SP 
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EM DIA COM AS DUPLICATAS 



logo ap6s entrar com a opc£o 10. sis- 
tema iniciar«i a leitura interna da \aiii- 
vel de controle e ap6s alguns segundos 
apareceri no video o menu de entrada 
de dados, com o numero sequential 51, 
no topo da tela. 

GRAVAR ARQUIVO 

Todos os dados de entrada de dupli- 
catas, alterac.o'es e delecSes podem ser 
arquivados em fita cassete com esta 
opcjfo, que tambem permite gravar a 
continuacffo de arquivo. sistema mos- 
tra a mensagem "GravacSb — Prepare o 
K-7 e tecle (ENTER)". Ap6s a grava- 
ca"o da Ultima duplicata, o programa re- 
torna ao menu principal. 



LER ARQUIVO 

A fun9a"o desta op9a"o 6 ler todos os 
dados arquivados em fita cassete. Ap6s 
a leitura da Ultima duplicata, o progra- 
ma retorna ao menu principal. 

OUTRAS INFORMAgOES 

Ap6s a entrada de duplicatas, altera- 
9Ses, delec^es e liquidates, deve ser 
feita a gravacao no arquivo em cassete, 
pois as alteracQes so permanecem na 
mem6ria do computador. Para sua se- 
guran9a, na"o regrave mais de duas ve- 
zes na mesma parte da fita, pois em caso 
de desgaste torna-se impossivel ler os 
dados de arquivo. 



numero maximo de duplicatas 
aceito 6 199. Para ampliar o arquivo de 
mem6ria ser£ preciso alterar o progra- 
ma. numero da duplicata devera" con- 
ter tres caracteres no minimo, para que 
nao haja deslocamento de posicOes no 
video. mesmo devera" ser feito para o 
c6digo do banco. Se voce teclar BREAK 
e possuir dados de arquivo na mem6ria, 
nSb use RUN, pois isto faii com que to- 
dos os dados da memdria sejam perdi- 
dos. Neste caso, use GOTO 80. 



Paulo de Carvalho trabalha no Departamento 
de Implantagdes do Banestado, em Curitiba, e 
desenvolve programas para CP-300e TK-85. 











Cobranga de 


du^ 


blicatas 








\ 'PROGRAMA - COBRANCA - AIITOR - PAIM DE CARVALHO 


1240 


PRINT KS; 






2 TONE 233.)'/'./0 - CURITIBA - PR- 


1260 


PRINT TAIK15); JPR INTllfiTNG" TOTAL CRS III! , 111! II , II II II . II H ";TM 




5 CLS 


1270 


PRINT KSp 




10 CLEAR 5000 


1280 


PRINT"** Eitu *» Tecle < Enter > " 




20 INPUT "ENTRE C/DATA NA FORMA < ANO Ml T> Dirt > "jDA 


1 300 


RS=INKEY5 




30 IF DA< 840808 I30T0 20 


1320 


IF RSO CHRK13) GOTO 1300 ELSE BO 




40 K«=STR1NGS<i<>4,45> 


1340 


PRINT K* ; 




60 DIM 0(?00):DIM N<200):l)IM SI<20()):D)M lK200):f)TM SS<20()> :I)1MV 


1 360 


PRTNTTAIK15);:PRINTU!UNG" SUM-TOTAL BUS Nil . II Mil . II III) . III! "jTM 




H(200) 


1300 


PRINT KS; 




BO CLS 


1400 


PR INT"P/Conl: lunar tecle < Enter ) " 




100 PRINTTAIK 20) " C 11 R A N C A " 


1420 


RS=TNKEYS 




120 PRINTTAIK iS)"ENTRrtDrt DE DUPLICATAS...- 1 " 


1440 


IF «1i(l CHRSOS) GOTO 1420 ELSE 950 




140 PRINTTAIK 15 >"l ISTAGEM/GERrtl. DIIPLIC...- 2 " 


1480 


CLS 








1500 
1520 


PRINTTAIK IS) "LISTAGEM P7 DATA " 
INPUT "DATA INICIAI "; Dl 






180 PRINTTAIK 15)"I.I.STAhEH P/SACADO - 4 " 




200 PRINTTAIK 15)"LTSTrtGEM P/SACADO E DATA- fi " 


1540 


INPUT "DATA FINAL ", DF 




220 PRINTTAIK 15)"l. ISTA6FM Dill' L IQIIIDADAS.- 6 " 


1560 


Y=t) 




230 PRINTTAB(15>"L.TSTAGErl DIJP MENCTDAS...- 7 " 


1580 


TM=0 




240 PRINTTAIK 1 5>"I1AI XAR/DELETAR DIIPLIC...- " 


j 600 


CLS 








1620 
1640 


PRINTTAIK 15>"L1STAGEM P/DATA DE "; DI ," A "; DF 
K=0 






270 PRINTTAIK 15) "C0NT1NIIAR AROUIUO - 10 " 








1 650 
1700 
1740 


GOSIIB 5760 

Y=Y+i 

IF D<Y)=9 GOTO 1980 












320 PRINTTAIK15)"DIGTTE A OPCAO "-:INPUT t\7. 




340 IF A%< 1 OR AZ > 12 THEN PRINTM'RINTT Alt' <S)"OPCAO INVALIDA": 


1760 


IF D<Y>< DT OR 0<Y> > DF GOTO 1700 




FOR K = l TO SOT): NEXT K:G0T0 BO 


(770 


IF S1(Y)>1 GOTO 1700 




360 IF A%=1 GOTO 520 


1800 


K=K+1 




370 IF A%=2 GOTO 930 


1820 


GOSUB 5940 




3B0 IF AX>=3 GOTO 1400 


1830 


IF K=8 GOTO i860 




390 IF AZ=4 GOTO 20B0 


1840 


GOTO 1700 




400 IF A%=5 GOTO 2600 


I860 


PRINT KSf 




420 IF AZ=A GOTO 3240 


18B0 


PRINTTAB(15>; :PR1NTUS1NG"SIJB-T0TAL CRS MM , HHH , MMM . MM " ; TW 




440 IF AZ=7 GOTO 3640 


1900 


PR (NT KSf 




4611 IF A%=8 GOTO 4120 


1920 


PRlNT"P/r.Lint irinar tecle < Enter ) " 




4B0 IF AZ=9 GOTO 460(1 


1940 


RS-INKEYS 




500 IF AZ=10 GOTO 52B0 


1960 


IF Rl <> CHRS(IS) GOTO 1940 EL.3E 160(1 




510 IF AZ=11 GOTO 530(1 


191)0 


PRINT KS? 




515 IF AZ=12 GOTO 5560 


2000 


PRINrrAB<15);:PRlNTUSING" TOTAL CAS llll , llllll , MUM . MM ";TM 




520 Y=0 


2010 


PRINT K5} 




560 Y=Y+1 


2020 


PRINT "H» Fin xn Tec 1 e < Enter > " 




570 CLS 


2040 


RS=INKEYS 




580 PRINTTAIK 1(1) "ENTRADA DE DUPLICATAS -No ";Y 5 " P/ENOERRrtR DIQJ 


B06O 


it (t% <> CIIR«(13> GOTO 204(1 ELSE 80 




TE ( 9 > " 


2010 


CLS 




590 GOSIItl SBOO 


2100 


PR1NTTAIK20)" 1 ISlrtGLM P/SACADO " 




620 PRINTS 4N64H6," "• 


2120 


PRINTTAB<15)"SACAD0 " ; : INPUT SIS 




640 INPUT D(Y> 


2140 


Y=0 




660 IF D(Y>=9 GOTO 00 


2160 


TH=0 




680 PRINTS 6x64-1 16," "; 


25(10 


CLS 




700 INPUT N(Y> 


2200 


K=Q 




720 IF N(Y)>9999 GOTO 6flll 


2220 


I'RINTTAH( 15)" LISTAGEM 1'/ SACADO " 




740 PRINT;,) I3»64H6," " 7 


2240 


GOSUB 5760 




760 INPUT Slin 


2250 


Y-Y+l 




770 IF SI(Y>(> 1 GOTO 740 


2260 


IF D(Y)=9 GOTO 2510 




78(1 PRINTS 10x64 + 16." "; 


2200 


IF SI(Y)>1 GOTO 2250 




BOO INPUT IKY) 


2320 


IF St<Y)=81l GOTO 2360 




810 IF IKY)>?99 GOTO 780 


2340 


GOTO 2250 




«SO- (■«*)«»• t-2-* JtA * i ■*.,-"- " 


236(1 


GOSUB 5940 




040 INPUT SKY) 


23711 


K=IC + 1 




860 IF 1 FN (SKY)))22 GOTO 1120 


2375 


IF l<=8 GOTO 2400 




880 PRINTS) 14«64H6, " "; 


; :mo 


GOTO 2250 




9nn INPUT VH(Y) 


; '4i in 


PRINT KK; 




920 GOTO 560 


2420 


PRINTTAB(20) r :PRlNril'!(NG" SUB-TOTAL C»* CM , llllll . llllll . MM ";TM 




930 TM = 


24411 


PRINT KS; 




940 Y=0 


2461) 


PRINT"P/Crjnl iniuir 1 er U- < Inter > H 




950 CLS: K=0 


2400 


R1,=INKEYS 




960 PRINTTAIK 15)"l ISTrtGIFM GI.RAI DF TITULOS " 


2500 


IT RIO CHR1>(13> GOTO 2400 ELSE 2180 




970 GOSUt! 5760 


25ifl 


PRINT KS; 




106(1 Y=Y + 1 


2520 


PRINTTAlK20);:PR(MUSINU"T0TrtL >:Ri Mil HUM, llllll. llll "; TM 




1080 IF D(Y)=9 GOTO 1240 


2530 


PRINT KS f 




tOBf IF SKY)) i GOTO 1 060 


2540 


PRINT"xx Fir *« Teclp < Enter » " 




109(1 K=KH 


2560 


RS=TNKE > t 




1095 GOSIJB 594(1 


2580 


IF RS< > CHR'l.(i;l) 001 2!„-,ll USE HO 




1120 IF K=8 GOTO 1340 


2600 


CI S 




1230 GOTO 1060 






» 




CONFIE EM QUEM E RIGIDO E CON ST ANTE 



Os cab os coaxiais para radtofrequencia RAD 10 FLEX 

s§o produzidos de acordo com a norma militar MIL, 

C17 e outras normas intemacionais. 

Por isso suas caracteristicas eletricas e mecSnicas s§o 

rigidas e constantes. 

Produzidos com o melhor cobre eletrolitfco e a mais 

sofisticada tecnologia mundial em cabos trancados, 

seu controle de qualidade e feito na pr6pria linha de 

montagem. 

Sua instalaca"o 6 mais fa ell, por sua alta flexibiltdade ■ 

que permite atingir pequenos raios de 

curvatura - e por sua completa linha 

de acess6rios. 

Os cabos coaxiais RADIOFLEX tern 

opc§o de imped&ncia de 50, 75, 93 e 

95 ohms em varias bitolas. 

S3o fabricados com componentes 

que facilitam a instalapSo e garantem 



RADIOFLEX 



kmP 



Cabos Especiais e Sistemas Ltda. 

BR 116 •' km 25 Cx Posial 146 ■ 06800 

f:tiit«j SP - Tel.: 011/494-2433 Pabx - Telex 

01 1/33234 KM PL - Bfl - Totagramire PimteaWiT 



urn contato eletrico perfeito, alto desempenho eletrico 

e baixa relacSo de onda estacion^na. 

Uma capa de PVC de alta resists ncia assegura sua 

protecio contra intemperies. 

Seu condutor eletrico interno e vedadof>or uma 

blindagem de fios trancados dentro dos mais rigidos 

padrOes de qualidade e tecnologia proporcionando 

excelente blindagem contra RF. 

E, o mais importante: os cabos coaxiais RADIOFLEX 

s§o fabricados pela KMP - uma empresa que utiliza a 
melhor materia-prima, pessoal 
brasileiro altamente especializado e 
tern como ponto principal a qualidade 
dos produtos que fabrica e um fndice 
de nacionalizacSo de quase 100%. 
Aplique na engenharia da KMP e, veja 
as vantagens de confiar em quern e 
rfgido e constants. 
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MICRO SISTEMAS, abril/85 



«MAflCA SeGlSTHAOA K.MP CABOS ESPECIAIS t SlSTEMAS l.TOA. 



.'.•„ II 

2660 
3680 

aeoo 
aaao 

Sfi-30 
2840 
SB60 

2870 
2030 

29110 
29?0 
2940 
2960 
2900 
30(10 

3020 

3025 
ill ;il 
3040 
ii i,', 1 1 
3000 
3)00 
3120 
3140 
31 At) 
3100 

H 

3190 
3200 
3220 
3240 
3260 
3200 
3300 
3320 
3340 
33X0 
33B0 
3400 
3420 
3440 
3450 
3460 
3470 
34011 
3490 
3500 
3520 
3540 
3550 
3560 

it 

3570 
3500 
3600 
3620 
3640 
3660 
3600 
3700 
3720 
3740 
3760 
37/0 

:i/ihi 

3800 
3020 
3840 
3050 
3060 
3080 
3900 
3920 
3940 
3960 
3900 
4000 
4020 
4040 
4060 
4000 
4100 
4 IPO 
4130 
4140 
4160 
4100 
1200 
4240 
4260 
4200 

•; 120 

4340 

■) i.'.n 
■i nun 



||. INI IABi i'.' I ISTAOI ii i '.hi ADO l DATA " 
llU'iir s,n ADO ';SI'I. 

CNPUT"DATA INICIAL ";DI 

llll III'DATA FINAL " ; Dl 
Y=0 
T»=0 
CLS 
K=0 

l>RINTTAB<in>"LlSTAOEM P/SftCADO E DATA DE " } DIj" A "; DF 
BOSUB 5760 
Y=Y+1 

TF IX Y> =9 ROTO 3160 
IF SI«Y>> i GOTO 2880 
IF IXYX 1)1 OR D<Y>> OF GOTO 2880 
TF SKY>=Sll OOTO 3000 

goto saaa 

BOSUB 5940 

K=K + l 

IF K=R GOTO 3040 

OOTO 2880 

PRINT K%; 

PRINTTAB<i5>»«PRINTU3IN0" iiOB -TOTAL ERi Hit, Nltlt.illtt; .till " : TH 

PR TNT Kt; 

PRINT"P/Cont Inuar tecle < Enter > " 

R^INKEY* 

IF Rl <> CHRK13) OOTO 3120 ELSE 8830 

PRINT K*- 

PRINTTAB(15>;=FR1NTUSING" TOTAL GERAL CRS till , HMlt , HUH . Hit ";T 

PRINT Kt; 

print "»« rim «* Tecle < Enter > " 

RWNKEYS 

IF RK > 0HRK13) GOTO 3220 ELSE 80 

Y=0:Ttl=0 

K=0 sCLS 

PRINTTABUS)" LISTAGLM OE TITIJLOS LIQ1JIDAD0S " 

BOSUB 5760 

Y=Y+1 

IF D(Y>=9 HOTO 3550 

IF SKY 1=2 GOTO 3420 

GOTO 3340 

fiOSUfi 5940 

K=K+i 

IF K=B GOTO 3280 

GOTO 3340 

PRINT K*p 

PRlNTTAIK15);:PRINTIir,ING" SOB-TOTAL CRS lilt , Hit II , HUH . llll "-TII 

PRINT KSj 

CKINI-'IVOnnt Inuar Tecle < Enter > " 

R1=)NKEY* 

IF RIO 0HRK13) GOTO 3520 ELSE 3280 

PRINT K%; 

PRINTTAB<20);«PRINT0SING" TOTAL GERAL CRI llll , HUH , lllllt.HM "-T 

PRINT KS; 

PRINT"** Fim »* Tecle < Enter > " 

R5-INKEY5 

IF RIO CHRKI3) GOTO 3600 ELSE 80 

Y-0»T#«0 

K=0 

CLS 

I'R1NTTAB(1H)"LISTAGEM DE TTTIILOS VENCIDOS " 

ROSIJB 5760 

Y = Y + 1 

IF D(Y>=9 GOTO 4000 

IF SKY) =2 GOTO 3740 

IF IXYX DA GOTO 3820 

GOTO 3740 

HOSIIB 5940 

K=K + 1 

IF K=8 GOTO 3000 

GOTO 3740 

PRINT Kl, 

PRlNTTAD<15);:PRINtUSlNli" SOB-TOTAL CK S HH,IIHH. Hllll.ltll "-TH 

PRINT Kl; 

PRINT"P/Cont inuar Tecle < Enter >" 

RS=INKEY» 

IF RK > CHRSM3) GOTO 3960 ELSE 3660 

PRINT K%; 

PRTNTTAU<13);:PRINTIJSJN6"TOTAl GLRAL CRT, llll , II II II , IIHH . HH ";TII 

PRINT Kt t 

PRINT"** Fim ** Ter. Ip < Enter > " 

RS-INKEY1 

if rk > r;HRKt:t> goto 4000 else oo 

Y=0:Ttt=D 

CLS 

PRINTTAII<l5>"LlQUIDAr.rtO/l)LI FCAO DE IMJPL ICATAS " 

PRINT:PRINTTAB(i5)"NR. DA DUPLICATA "- : TNPIIT Nl 

CIS 

l'R)NllAB(i5)"l IQII1D.-IGA0/DEI FCAO DIJI'L ICATAS" 

S08UB 5760 

Y=YH 

IF D<Y)=9 GOTO 4640 

TF N(Y>=N1 ROTO 4360 

GOTO 4 2A0 

BOSUB 5940 

PRINT Kl.: 



?sta 



C|U|. 



., .I. I- 



< B/ll 



I'/OF I I TAR " : :INP 



44UU PK1NI "I ' 

4420 Rt^INKEY* 

4440 IF RS»" " GOTO 4420 

4460 IF R1="S" GOTO 4520 

4480 IF RT, = "N" GOTO 4180 

4500 GOTO 4420 

4520 PRINTTAB(10)"DIGITF ■ 2- P/l IQUIDAR 

OT OP 

4540 IF 0P< 2 OR OP > 3 GOTO 4520 

4560 IF 0P=2 THEN LET SI < Y)=2:|'RINT rPRINTTAB ( 15>"0K DUPLICATA 1.1 

SUIOADA < AGUARDF > ":FOR K = l TO 300 I NEXT K=G0TO 80 

4580 IF 0P=3 THEN LET D<Y)=0 =N( Y >=0:RI < Y >=-0:R < Y ) =0sS*< "l >="": VH < 

Y>=0 

4620 PRINT:PR)NTTAB<15)"0K DUPLICATA DELETAOA < AGUAROE > ":FOR 

K=i TO 300 INEXTK* OOTO 80 

4640 PRINT Kt 

4660 PR r NTT ABC IS > "DUPLICATA INEXISTENTE ":FOR K=l TO 300SMEXT K 

:ROTO 80 

4680 Y=0 

4700 CLS:PRINTTABU5)"ALTERAC0ES" 

4720 PRINT:PRINTTAB(15)"NR. DA DUPLICATA "j» INPUT Nl 

4740 CLSs|>RINTTAB<15)"ALTERAC0ES " 

4760 BOSUB 5760 

4780 Y=Y+1 

4800 IF D(Y)=9 GOTO 4640 

4R20 IF N<Y)=N1 GOTO 4860 

4840 GOTO 4700 

4060 OOSUB 5940 

4870 PRINT Kl 

4800 PRINT"E' est a a duplicata a alterar < s/n > ?"; 

4900 R%=INKEY* 

4920 IF Rl=" " GOTO 490(7 

4940 IF R4="S" GOTO 4990 

4960 IF Ri="N" GOTO 4740 

4900 GOTO 4900 

4990 CLSiPR 1 NTTAB < 1 51" ALTER ACOES" 

5000 GOSUB 5000 

5020 PRINTS 4*64*16," "• 

5040 INPUT D>(Y> 

5060 PRINTS 6*64+16," "; 

5000 INPUT N(Y) 

5090 IF N<Y)>9999 GOTO 5060 

5100 PRINTS 0*64+16," ", 

5120 INPUT SI(Y> 

5130 IF SIITIO 1 GOTO 5100 

5140 PRINTS 10*64+16," ", 

5160 INPUT B(Y) 

5170 IF B<Y>>999 GOTO 5140 

5180 PRINTS 12*64+16," "■ 

5200 INPUT SKY) 

5210 IF LEN <SKY))>22 GOTO 5100 

5220 PRINTS 14*64+16," "; 

5240 INPUT VH(Y) 

5260 GOTO 80 

5280 CLS 

5300 Y=0 

5320 Y=Y+1 

5340 IF D(Y>=9 GOTO 570 

5360 GOTO 5320 

5380 CLS 

5400 PRINT"GRAVACAO:" 

5420 PR1NT"PREPARE K-7 E TECLE < ENTER > " 

5430 RS-INKEYS 

5440 IF RIO CHRSC13) GOTO 5430 

5460 Y=0 

5400 Y=Y+1 

5490 IF D<Y)=0 GOTO 5480 

5500 PRINTtt-1, D(Y),N(Y),SI<Y),B<Y),SI<Y),yH<Y> 

5520 IF D(Y)=9 GOTO 80 

5540 OOTO 5480 

5560 CLS 

5500 PRINT'LFITURA: " 

5600 PRINT'PRFPARE K-7 E TECLE < FNTER > " 

5620 R*=INKEY4 

5640 IF RIO CHRSC13) ROTO 5620 

5660 Y=0 

5600 Y=Y+1 

5700 INPUTIt-I, lXY),N(Y) r SI(Y),n<Y),SKY),VH<Y) 

5720 IF D(Y)=9 GOTO IK) 

5710 OOTO 5680 

5760 PRINT KS| 

5700 PRINT" YFNC. DIIPL SIT BOO BACADO 

ALOR " 

5790 RETURN 

5000 PRINTS 4*64,"YENGIMFNT0 :"; 

5020 PRINTS 6*64, "NR. DUPLICATA.. :"- 

S840 PRINTS 8*64,"!iITUr1CA0 :"; 

5860 PRINTS 10*64 , "BANCO/COB :"; 

5800 PRINTS 12*64,"SACAD0 ="; 

5900 PRINTS 14*64, "VALOR 5"; 

5920 RETURN 

-1940 PRINT;D<Y);:PRINT — ;N( Y ) ; :PR INT"";SK T ) ; :PRIN1 ;B(Y> : :PRI»> 

t" ";SKY), 

5945 PRINTUS1NG" IIH , II II II , Hit . llll" ; Vtt ( Y) 

5950 T*-. = Tllfytl(Y> 

5940 RETURN 



SINTA NOS DEDOS ESTA CONQUISTA 

DIGIPLEX 
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RuaGSvea. 160- Tel:(03t)332S300 
30.000 ■ Belo Horiionte ■ Telex 031-3352 
Rua Barala RiMro.391 ■ s/40f • 
Tel:(021)257-2960- Wode Janeiro 
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CEIT1ILIITI 

Com. e Represenlacoes Llda. 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 



DISKETES: 5 1/4 e 8" e fitas magneticas 
• marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 
PASTAS E FORMULARIOS CONTINUOS 



| Discos Magofiticos: 5 Mb, 16 Mb, 8 Mb, etc 

■ Fitas Magneticas: 600, 1200 e 2400 pes 

< Fitas CARBOFITAS p/lmpressoras: Globus, M 100/200 • B 300/600 - Elebra 

1 Fitas p/lmpressoras: Elgin, Epson, Digilab, Diablo, Elebra-Alice. 

• Cartucho Cobra 400 



AV, PRESIDENTE VARGAS N? 482 GR. 201/203 Tel.: KS (021) 253 1120 



multi-usu&rios, que alem de proporcionar o dinamismo de urn CPD tambem simplificara o gerenciamento de sua 

Com varios terminais executando programas especificos, a implantagao do DIGIPLEX proporcionara a sua em- 
presa urn aumento da produtividade e qualidade, ja que a interligagao on line dos terminais permitira que se 
trabalhe com dados e informag6es atualizadas. 

Ligados ao DIGIPLEX poderao estar ate 16 terminais inteligentes, fazendo a contabilidade, controle de estoque, 
vendas e produgSo, malas diretas, estatisticas ou seja, atendendo a todas as necessidades de sua empresa. 

Revendedores: Araca|U (079) 224. 7776 223. 1310 Baumsrl (011) 421. 5211 Brasilia (061 ) 242,6344 248.5359 273.2128 229.4534 Beldm (091) 225. 4000 Belo Horizonle (031) 223.6947 222.7889334.2822 344,5506 
225 3305 225.6239 Campinas (0192) 32.6322 Curltiba (041) 232.1750 243.1731 Dlvindpolls (037) 221.9800 Fortaleza (085) 227,5878 224.4235 224.3923 224.4691 226.4922 Floriandpolls (0482) 23 1039 Foz do 
Iguacii (0455) 72.1418 Goiania (062) 223 1 165 Joao Pessoa (083) 221 6743 Julz de Fora (032) 213.2494 Londrina (0432) 23.71 10 Maceld (082) 223.3979 Montes Claros (038) 221 .2599 Nlterdl (021 ) 710 2780 Novo 
Hamburgo (051) 293 1024 Ouro Prdo (031) 551 3013 Poqos de Caldas (035) 721.5810 Porto Alegre (0512) 26.1988 334.0660 21.4189 25.0007 26.1900 Recife (081) 326.9318 221.4995 326.9969 Rlbelrao Preto 
(016) 636.0586 Rio de Janeiro (021) 252.9420 262 2661 292.0033 267.1093 252.9191 541.2345 268.7480 221.8282 288.2650 253.3395 257.4398 222.4515 263.1241 295.8194 247.7842 322.1960 316.4966 
551.8942 Salvador (071) 242.9394 241 6189 Santa Maria (055) 221.9588 Sao Paulo (011) 280.2322 815 0099 533 2111 231.3922 258.4411 222. 1511 853.9288 Taubalfi (0122) 32.9807 VHdria (027) 223.5147 
223.5610 



Nesta parte do artigo, a respeito do gerenciador 
de banco de dados para o TRS 80, vamos descrever 
o funcionamento intcrno do programa 



Um gerente pratico 
em banco de dados (//) 



Ivan Camifo da Cruz. 



O programa que dcscreveremos neste segundo arttgo 
da scrie foi projmdo para gerenciar bancos dc da- 
dos relacionais, acessados sequencialmente ou atra- 
ves dc uma arvore binaria. lite tern um conjunto de 
retinas portaveis que serJo descritas nesta parte. El as podem 
ser usadas em outros programas do usujirio para acessar os da- 
dos do banco. Alguns cxemplos de sua utilizaeao serao dados 
na terceira parte do artigo, 

Estas rotinas portaveis est So tocalizadas entre as linhas 1 380 
c 4990. Pordm, antes de descrcve-las, faremos uma pequena 
introducao ao funcionamento geral do programa. 

Para se cit tender o funcionamento e ncccssario conhecer 
trcs tabelas usadas internamenle: a de descricao da ficha, a de 
descricJo dos campos e a dc descricao dos arquivos. Estas ires 
tabelas definem completamente o banco de dados em mo. As 
variaveis c vet ores, usados para a conslrucao destas tabelas es- 
tao na figura 1. As duas primeiras sao gravadas em disco logo 
apos a criaca"o do banco, a terceira e criada a parlir das duas 
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primeiras f semprc que um novo banco c aberto ou eriado As 

outras variaveis importantes do programa podem ser visuatiza- 
das nas figuras 2 a 6. 

A labela de descrica*o dos campos e composla por seis veto- 
res; NCS. PC, TC, TP, DC e FMS. Scndo que o vetor FMS e 
const mi do a partir de TC e DC no moment o da abertura do 
banco. Cada carnpo ocupa uma entrada na tabela a partir da 
post^So I dos veto res. A posieffo e rcservada para o campo 
'APAGADO?' (veja primeira parte do artigo). Alem destes, 
existe o vetor CCS que e usado pata guardar os dados da ficha. 

A tabela dc descricSO da Ficha e formada por trfis vetores e 
duas matrizes. Os vetores sa"o PI, P2 c NM. Existe uma entra- 
da ncstcs vetores para cada tela da ficha. nurnero de telas 
esta" annazenado na variavel NP. O vetor PI content, para 
cada uma, um apontador para o primeiro campo da tela. Si- 
milarmente, o vetor P2 guarda indices para o ultimo campo da 
tela. O NM con tern o nurnero de mensagens. As matrizes da 
tabela sa"o PM e CMS. Elas siio bidimensionais e para cada tela 
guarda as postcoes e contcudos das mensagens, respectivamen- 
tc. 

A tabela dc dcscriq:5o dos arquivos 6 formada por dois ve- 
tores' NC e TA. primeiro guarda, para cada arquivo, o nu- 
mero de campos c o segundo o tanianho, em caractcrcs, de 



VAK1AVEIS DE DEFlMICflO DA IMPRESSAC) 

Caracteristicas da Idipressora 
CO - Uumero lie colunas 
LI - Nurnero de linhas 
Sit - iiequencia inicial de ittpressao 
S2t -- Sequencia final de impressao 
Caracleristicas do Kelatorio 
Cabecalho 

N4 ■ Nurnero de lintias de cabecallio 

I4( ) - Tabuiacops da liohas de cabecalho 

L4i( ) - Conleudo da'., t inhas de cabeca I ho 

Nl - NuMero da linha do contador de paytnas 

CI - Nurnero da t'oluna do contador de uaginaii 

Detalhe 

H5 - NuMero de colunas de detalhe 

T5( ) - fabuiacoc-i das colunas de detalhe 
C5( ) • Campo » '..or irtpresso 
N3 - Nuuero de Lmhas de ■ieparacao 
117 - NuMero de fichab a lmDrimii- por pagina 
N8 - Resto de linhas 

W - Humero de linhas a ltipriMir put ticha 
Rodape' 

N(5 - Nurnero de linhas de rodape' 

T6( ) - Tabulacoes das linhas de rodape' 
L6t( ) - Conteudo da3 linhas de rodape' 
N2 - Humero da linha do contador de paginas 
Cc' - Numero da coluna do contador de paginas 
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TABELAS E VAR1AUEIS PARA AVALIACOES DE EXPRESSOES- 

CF1( ) - Nunero do cainpo 

CTt< ) - Constante string para a cotiparacao 

RL( ) - Codigo do operador relacional 

LG( ) - Codigo do operador logico 

OPt - Operador sendo avaliado 
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FLAG c; oq proGRAMA 

F0 - ( ) - Indica que nao houve modificacoes na tela 

atual <usada pela rotina LElf. 00 TECLA0O-1 ) 
( 1 ) Indica que hove Modif icacoes. 
0) - Indica que amda nao foi encontrado o fim de 

arquivo < usada pela rotina IMPRIMIR) 
- i ) - Indica que o fi» de arquivo foi encontrado. 
0) flao existe exoressao logica para ser avaUada 
-J.) - Existe una expressao logica. 
0) - Expressao logica e' falsa 
-I) - Expressao logica e' verdadeira. 
0) - Expr<?ssao relacional e' falsa 
-1) Exoressao relacional e' verdadeira. 
0) - Nao iMprimir valores anteriores do formato de 

iapiessaa (usada oela rotina DESCRICAO DA 1M- 

PRESSA0). 
-1) - Imprimir valores anteriores. 
0) - Existe um banco de dados aberto. 
-). ) - Nao existe um banco de dados aberto. 
0> - Nao existe ur.i arquivo do indices em uso. 
1) - Existe um arquivo de indices em uso. 
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BC* - Nome do ban'.o de dados eM uso. 

TP$( ) - Tabela de definidores de tipo 

Tl< ) - Tamanho do caMpo para tipos numericos 

ZRt( ) - Valores nulos para cada tipo 

LiHIillr* - Auxilia a criacao dos FIELDs 

NF Nurnero da ficha atual 

i' ! iidereco do cur&tir na memoria de video 
PR - Codigo do caractere 'sob' o cursor. 
CR - Codigo ASCII' do I'ursor 
ST$ - Usada na leitura dos campos do teclado 
ELO - Flo ou flag da ficha atual 
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cada registro do arquivo. Para entender melhor esta tabela sab 
necessirias pequenas explicacoes. 

Devido k baixa capacidade dos registros dos arquivos em sis- 
temas operacionais para o TRS 80 (256 bytes), foi preciso im- 
plementar um modo de se armazenar uma ficha em mais de um 



registro. O m6todo que se mostrou mais eficiente foi o de ar- 
quivos paralelos, em que uma parte da ficha fica em um arqui- 
vo e o restante em outros, porem na mesma posigSo relativa. 
Dessa forma, se uma ficha for muito grande (mais de 256 by- 
tes) ela sera subdividida em ate 10 arquivos, o que permite ao 
programa armazenar, teoricamente, fichas com at6 2.560 by- 
tes. 

Deve ser levado em conta, no calculo do tamanho da ficha, 
que o campo 'APAGADO?' ocupa dois bytes e se localiza antes 
de qualquer outro. Tomando como exemplo a ficha usada na 
primeira parte teriamos a seguinte divisa"o: 



lo. ARQUIVO 








INDICE 


NA 


NOME 


TAMANHO 


TABELA DE 


0EF. 


00 


DO 


DOS CAMPOS 


CAMPO 


CAi'lPO 







'APAGADO?' 


e 


1 




NOME 


30 


2 




PAI 


30 


3 




MAE 


30 


4 




'DATA DO NASCIMENT0' 


8 


5 




'EST. CIVIL' 


1 


6 




C0NJUGE 


30 


7 




IDENTIDADE 


12 


8 




'0RGA0 EXPEDl'DOR' 


12 


9 




'C. PR0FIS.' 


12 


10 




'SERIE 


12 


11 




'CERT. DE RESERVISTA' 


15 


IS 




'TIT. ELEITORAL' 


8 


13 




SESSA0 


5 


14 




ZONA 


3 


15 




CIC 


12 



TOTAL 



Se o proximo campo (ENDERE£0) fosse incluido, o arqui- 
vo ficaria com 262 bytes por registro. Por isso ele so sera in- 
cluido no segundo arquivo: 



2o. 


ARQUIVO 








NUMERO 


NOME 


TAMA 




16 


ENDEREC0 


40 




17 


'CIDADE 


20 




18 


ESTAD0 


2 




19 


'DATA DE ADMISSA0' 


8 




20 


CARGO 


20 




21 


SALARI0 


8 



TOTAL 



98 



Observe que. apesar de o tamanho do campo SALARIO ser 
de 14 caracteres, ele s6 ocuparaoito bytes no arquivo. Qualquer 
campo de dupla precisao ocupa apenas oito bytes, os de pre- 
cisao simples quatro e os inteiros dois bytes. 

AS ROTINAS DEACESSO 

E importante lembrar que os dados dos bancos podem ser 
acessados atraves de uma arvore biniria. Para aqueles que es- 
tao se iniciando, vamos explicar o que e uma irvore biniria. 

De forma generica, uma irvore e uma estrutura de dados 
que possui nos e ligafoes entre esses nos, que estSo dispostos 
em niveis. Uma ligacao sempre parte de um ni'vel menor para 
um maior. Um exemplo de arvore pode ser visto na figura 7. 
No ni'vel zero pode ser colocado apenas um n6 e que & chama- 
do n6 raiz da Arvore. 

Uma drvore binaria e uma forma especial de £rvore, na qual 
podem ser feitas no maximo duas ligacSes a partir de um no m 
qualquer. Na figura 8 esta" um exemplo. » 
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Todos os nos d$s quais nao parte nenhuma ligacao sao cha- 
mados nos folha. Aqueles que nao sao raiz, mas dos quais par- 
tem ligacOes para outros nos serao chamados de sub-raiz. A ar- 
vore que se origina de uma ligacao a esquerda de um no sexi 
chamada de sub-arvore a esquerda, e as arvores que se originam 
a direita sera"o chamadas de sub-arvores a direita. 

Cada no deve conter armazenada uma chave de acesso (ob- 
serve que isso nao esta representado na figura 7). Todas as cha- 
ves armazenadas em uma sub-arvore a esquerda devem ter um 
valor menor do que a chave do no que a originou. Da mesma 
forma, todas as chaves contidas em uma sub-arvore a direita 
devem possuir valores maiores do que a chave do no que a ori- 
ginou. 

Vamos a um exemplo para explicar melhor o sentido desta 
definicao. Suponhamos que os nomes abaixo devam ser intro- 
duzidos em uma arvore binaria: JOAO, EDSON, LUIZ, FA- 
TIMA, ANTONIO, PEDRO, EVERTON. 

A criacao de uma arvore bin&ria com tais dados seguira esta 
seqiiencia: 



uui 



IUS0H 
ANIWIO fMlM 



■ 0HM 
MHWIO rATliv 



mnHu ■■■■> 



Para entender as rotinas de acesso a arvore sao necessarias 
quatro definicoes: 

1 - PRIMEIRO ELEMENTO da arvore ou sub-arvore. 

2 — ULTIMO ELEMENTO da arvore ou sub-arvore. 

3 - ELEMENTO SEGUINTE a um elemento. 

4 - ELEMENTO ANTERIOR a um elemento. 
Vamos a definicQes mais especificas: 

• PRIMEIRO ELEMENTO: dado o no raiz da arvore ou sub- 
arvore, se ele nao tiver uma sub-arvore a esquerda, entao e o 
primeiro. Caso contrdrio, o primeiro elemento sera oprimeiro 
elemento da sub-arvore a esquerda. 

• ULTIMO ELEMENTO: dado o n6 raiz da drvore ou sub-ar- 
vore, se ele nao tiver uma sub-arvore a direita, entao ele e o 
ultimo. Em caso contrdrio o ultimo elemento sera o ultimo 
elemento da sub-arvore a direita. 

• ELEMENTO SEGUINTE: dado um elemento da arvore, se 
ele tern sub-arvore a direita, entao o elemento seguinte sera o 
primeiro elemento da sub-arvore a direita. Ao contr£rio, o ele- 
mento seguinte ser4 o primeiro no pai cuja sub-drvore a es- 
querda seja a mesma do elemento dado. 

• ELEMENTO ANTERIOR: dado um elemento da arvore, se 



um» Arvore cih£rica 
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ele tern sub-arvore a esquerda, entao o elemento anterior sera o 
ultimo elemento da sub-arvore a esquerda. Em caso contrario 
o elemento anterior sera o primeiro no pai cuja sub-arvore a 
direita seja a mesma do elemento dado. 

E bom tamb<§m esclarecer que cada no (elemento) da arvo- 
re possui cinco campos: 

• inteiro com o elo com a sub-arvore a esquerda (El S); 

• inteiro com o elo com a sub-arvore a direita (E2S); 

• inteiro com o elo com o no pai (E3S); 

• inteiro com o elo para a ficha (E4S); 

• campo que contem a chave de acesso da arvore (CHS). 

Estes campos estao declarados em um comando FIELD na 
linha 4830, na rotina de abertura do arquivo indice. A funcao 
de cada um pode ser melhor visualizada na figura 9. A figura 
10 traz os valores que estes campos assumiriam no caso do 
exemplo dado anteriormente. 

Algo mais deve ser dito sob re o registro numero 1 do arqui- 
vo de indices (figura 10). Ele funciona como um descritor da 
arvore. campo E1S deste registro contem um apontador 
para o no raiz da arvore que na figura e o registro numero 2. 
O campo E4$, por sua vez, possui o numero do campo na ta- 
bela de definicao dos campos, que e usado como chave da ar- 
vore binaria. Neste caso o numero do campo e 1 , que e o indi- 
ce do campo 'NOME' do nosso exemplo. 

Para criar e acessar a arvore usando estes campos ha seis ro- 
tinas: 

• PRIMEIRA (linhas 1420-1550). 

• ULTIMA (linhas 1560-1690). 

• PR6XIMA (linhas 1700-1820). 

• ANTERIOR (linhas 1830-1950). 

• INCLUI (linhas 1960-2190). 

• PESQUISA (linhas 2200-2400). 

A PRIMEIRA busca a primeira ficha no banco de dados. 
Caso o banco na"o seja indexado, a ficha numero 1 sera lida e a 
rotina retorna. Em caso contrario havera busca dentro da ar- 
vore binaria para encontrar a ficha que tenha a chave de me- 
nor valor. Ela se dara da forma como foi descrita anterior- 
mente na definicao de PRIMEIRO ELEMENTO, ou seja: 



I UIICAO DOS E10S 



Jlyl * 




VALORES DOS ELOS 

# DO 
REGISTRO E1$ E2$E3$E4$ CH$ 



2 


? 


? 


1 


? 


3 


4 





1 


JOAO 


6 


5 


1 


2 


EDSON 


P 


7 


1 


3 


LUIZ 


8 





3 


4 


FAT I MA 





P 


3 


5 


ANTONIO 








4 


6 


PEDRO 


V 


9> 


r > 


7 


EVERTON 
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linha 1510: salva o conteudo da variavel II e faz II apontar 
para a raiz da arvore. 
1 520: le registro numero II no arquivo de indices. 
1530: se houver uma sub-arvore a esquerda, faz a mes- 
ma busca. 
1 540: se nao, verifica se o nodo esta inativo e caso afir- 

mativo busca o PROXIMO ELEMENTO. 
1 550: le a ficha no disco e retorna sem erro. 
O conteudo da variavel II e salvo para que seja recuperado 
em caso de erro na procura. 

A ULTIMA funciona de modo similar, ou seja, se o banco 
nao estiver indexado, a ficha retornada sera FIM- 1 (FIM e uma 
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variavel que aponta para o ultimo registro +1 do banco) e caso 
contrario, sera a ficha cuja chave tiver maior valor. A pesquisa 
na arvore difere da rotina anterior em dois pontos: 
linha 1670: verifica se ha sub-arvore a direita. 

1680: se o nodo estiver inativo busca o ELEMENTO 
ANTERIOR. 

A rotina PR0XIMA le a ficha seguinte da atual. Se o banco de 
dados nao estiver indexado, bastara incrementar a variavel NF 
e saltar para a rotina de leitura do banco. Em caso contrario o 
numero do nodo atual, o indice da arvore a direita e o indice 
do nodo pai devem ser fornecidos a sub-rotina nas variaveis 
E2 e E3, respectivamente. 

A busca na arvore e feita conforme a definicao de ELE- 
MENTO SEGUINTE dada acima: 
linha 1780: salva a variavel II pelo motivo ja exposto. H 
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• Voce pode fazer o seu pedido por carta. 

• Junte a este um cheque cruzado, 
nominal a ATI Editor a Ltd a., no valor 
correspondente ao seu pedido. 

• E nao esqueca de enviar o seu endereco. 



Av. Presidents Wilson, 165/ 
grupo 1210, Centro, Rio de 
Janeiro - RJ — CEP 20030 
Tel.: (021)262-5259 



R. Oliveira Dias, 1 53, Jardim 
Paulista, Sao Paulo, SP 
CEP 01433 -Tels.: (011) 
853-7758, 881 -5668, 853-3800 



Seu micro nao 
pode parar 

CHAME MS: ASSISTENCIA VITAL EM MICROS 




IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 

A MS trabalha desde 1971 em assistdncia especializada em 
microcomputacao que se estende desde check-ups preventi- 
ves at6 a substituicao de pecas, de unidades perifericas ou do 
prbprio micro durante o tempo em que ele estiver em prepare 

Tenha ao seu lado a melhor assistencia t6cnica em micro- 
computadores do pais. 

FAQA COMO AS GRANDES EMPRESAS: 

Vang, Petrobras, Pao de Acucar, Acos Villares, Philco, etc. 

Contrato de manutengSo com a MS 6 garantia de bom f uncio- 
namento de seu equipamento. 

Solicite nosso representante ou faca-nos uma visita. 



MS 



Assistencia T6cnica a Microcomputadores. 
Rua Dr. Astolfo Araujo, 521 tone: 549-9022 
Cep.: 04012 - Pq. Ibirapuera - Sao Paulo. 
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linha 1790: verifica a existencia de uma sub-drvore a direita e, 
caso verdadeiro, inicia a busca da primeiro ele- 
mento desta sub-arvore. 
1800: inicia a busca do primeiro nodo pai cuja sub-drvo- 
re a esquerda contenha o elemento dado. Se 
II = 1, entao a busca termina com erro. 
1810: leo nodo pai. 

1820: verifica se ele satisfaz as condicoes da definicao. 
Caso afirmativo retorna sem erro, caso falso, bus- 
ca o pai anterior. 
A sub-rotina ANTERIOR funciona de forma semelhante. 
Alem das quatro rotinas explicadas, existe outra, de pesqui- 
sa em arvore binaria para encontrar a ficha a partir de urn 
campo-chave qualquer. Esta rotina, chamada PESQUISA (li- 
nhas 2200 a 2370) recebe como parametro a variavel STS que 
deve conter a string a ser pesquisada. Ao retornar, caso a pes- 
quisa seja bem sucedida, uma nova ficha foi lida e colocada no 
vetor CCS e a variavel ER retorna com valor 0. Caso contrario, 
a variavel ER retorna com valor 1 indicando erro. 

A rotina INCLUI (linhas 1960 a 2190) recebe como para- 
metros o vetor CCS e a variavel NF. O vetor contem os dados 
da ficha que serao incluidos no banco e NF o numero do regis- 
tro no banco onde a ficha sera armazenada. 

Ela grava a ficha no banco de dados (linha 2030) atraves de 
uma chamada a sub-rotina da linha 2590. Em seguida, caso es- 
teja sendo usado um arquivo indice, um no ser4 procurado pa- 
ra que nele possa ser dependurado o novo registro. 

ROTINAS DE ANALISE 

Entre as linhas 2660 e 3980 estao as rotinas que fazem ana- 
lise lexica, sintatica e avaliacao de expressoes logicas e rela- 
cionais. A finalidade deste grupo de rotinas e prc-processar 
a expressao logica de modo a permitir uma avaliacao rapida da 
expressao por parte da rotina AVALIA (linhas 2660 a 2990). 
Para isso sao criados quatro vetores: CM, CTS, RL e LG. Para 
cada expressao relacional, uma entrada na tabela tambem e 
criada. A sintaxe de uma expressa"o relacional, como vista na 
primeira parte, e a seguinte: 

<CAMPO> ["(" < # TELA> ")" ] < OP. RELACIONAL > 

< CONST ANTE > 

O vetor CM contem o numero - dentro da tabela de defi- 
nicao dos campos - do campo da expressao. O vetor CTS 
possui a constante e RL, o codigo do operador relacional (de 
1 a 6). O vetor LG guarda o codigo ASCII do operador logi- 
co("." ou "+") usado como ligacao entre esta expressao rela- 
cional e a seguinte. Se nao houver uma expressao relacional 
seguinte, este vetor contera o codigo ACSII da letra F. 

A rotina EXPRESSAO (linhas 2970-3260) faz a analise sin- 
tatica de uma expressao logica completa. Ela chama a rotina 
CAMPO que faz a analise do trecho < CAMPO > ["("<#TELA> 
")"] , e devolve na variavel J o numero do campo dentro da 
tabela de definica"o dos campos. 

TOKEN e CARACTERE fazem a analise lexica. A cada vez 
que e chamada, TOKEN devolve o proximo simbolo na cadeia 
de entrada. A rotina CARACTERE por sua vez, devolve o pr6- 
ximo carater na cadeia de entrada. 

OUTRAS ROTINAS IMPORT ANTES 

Alem destas, existe um outro grupo de rotinas que merece 
ser citado. Esta localizado entre as linhas 3990 e 4990. A pri- 
meira delas le a descricao de um banco de dados ja existente 
no disco. E bom ficar claro que por descricao de um banco 
entende-se as tres tabelas vistas no inicio deste artigo. 

Em seguida vem uma rotina que faz o oposto, ou seja, es- 
creve esta mesma descricao no disco. Observe, entretanto, que 
a descricao que e lida e escrita no disco nao e completa, pois 
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a tabela de descricao dos arquivos nao e gravada. Para as duas 
rotinas 6 necessario, antes de chama-las, abrir os arquivos onde 
serao gravadas ou de onde serao lidas as descricOes. 

Logo apos a chamada a uma leitura de descricoes deve-se 
buscar a rotina CRIA A DESCRICAO DE ARQUIVOS, para 
que a tabela de descricoes dos arquivos, que nao e gravada 
em disco, possa ser criada. 

Apos ler a descricao da ficha e criar a descricao dos arqui- 
vos, e necessario abrir os arquivos de dados para que o banco 
possa ser acessado. Isso e feito pela rotina ABRE OS ARQUI- 
VOS DE DADOS (linhas 4500-4690). Esta, alem de abrir os 
arquivos, devolve as variaveis FIM e LV. FIM contem o nume- 
ro do proximo registro disponivel no fim do arquivo. LV e a 
cabeca (indice do primeiro item) de uma pilha de fichas mar- 
cad as como apagadas (veja a primeira parte do artigo). 

Para usar um arquivo de indices chame a rotina indicada. 
Antes abra os arquivos de dados e coloque na variavel IDS o 
nome do arquivo a ser aberto. A rotina FECHA fecha os ar- 
quivos de indices e de dados. A rotina FECHA O ARQUIVO 
DE INDICES, apenas o primeiro. 

MISCELANEA DE ROTINAS 

Alem dessas rotinas portaveis ha outras que podem ser uteis 
a alguem. A primeira delas e a que desenha as letras MSGBD 
(Mini Sistema de Gerencia de Banco de Dados) na abertura 
do programa (linhas 60-80). Nela, cada letra e composta por 
retangulos de largura constante e altura e posicao na tela va- 
riaveis. A rotina usa os dados numericos que estao nas linhas 90 
a 120, cada linha para uma letra. Cada retangulo e descrito 
por tres numeros: o primeiro e a coordenada X onde a lateral 
esquerda do retangulo esta posicionada; o segundo e a posicao 
no topo do retangulo e o terceiro a posicao da base. 

A segunda rotina e a de som. Ela e escrita em Assembler 
e chamada pelo banco de dados na pequena rotina que vai da 

linha 10630 a 10730. Os bytes que a formam estao na linha 
250 e armazenados na variavel SOMS. 

Ha duas rotinas de leitura do teclado. A primeira denomi- 
nada LEITURA DE TECLADO- 1, e usada para ler os dados 
da ficha que estiver sendo criada ou modificada. Os caracteres de 
controle que ela aceita estao armazenados na variavel CIS 
(ver linha 210). Assim, se o usuario deseja retirar alguns dos 
controles da rotina bastara substituir o carater correspon- 
dente na variavel CIS por outro que nSo exista no teclado, 
como por exemplo CHR$(0). A segunda rotina, denominada 
LEITURA DE TECLADO- 2, funciona de modo semelhante 
a um comando LINE INPUT, com duas diferencas: o numero 
de caracteres a ser lido pode ser delimitado pelo valor da va- 
riavel TM, e os unicos caracteres de controle permitidos sao 
o (ENTER), (setinha a esquerda) e (SHIFT) + (setinha a es- 
querda). 

A rotina DISPLAY MOLDURA imprime nas tres ultimas 
linhas do video uma grade e os nomes do banco de dados e do 
arquivo de indices em uso. A DISPLAY FORMATO formata 
o video, colocando os nomes dos campos e as mensagens nos 
locais pre-determinados. A DISPLAY DADOS imprime 
os dados referentes a cada campo no video, em suas posicQes 
pre-determinadas. 

As outras duas rotinas do programa sa"o aplicativas e nao 
serao descritas agora. Na proxima parte, o uso das rotinas 
aqui descritas sera visto na pratica. m 



Ivan Camilo da Cruz domina varias lingua gens de programacao, entre 
elas BASIC, Pascal, FORTRAN, COBOL, PL/1 e Assembler. Tern expe- 
riSncia em computadores grandes, minis e micros. Atualmente participa 
da implantacao do CPD da Controles Gnificos Daru, desenvolvendo pro- 
gramas em linguagem C. 
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A segunda 

memdria do seu 

computador: 

gravador National 

RQ-2222. 



Produzido na Zona Franca de Manaus 



O gravador 
National RQ-2222 
e o preferido 
pelos usuarios de micro- 
computadores. Ele grava e 
carrega programas com 



Porque tem um sistema de 
cabecote pr6prio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localizacao do programa a 
ser utilizado. E tem tambem 
um comando unico para 
gravacao tipo "Um Toque", 
muito mais pratico. Um 
gravador que vive na mem6- 
ria do computador merece 
tambem viver na sua. 



National 



National 




rodada MS 



Finalmente, a oportunidade que os possuidores 
da linha Sinclair esperavam, com este novo... 

Arquivo de 
comunicados 



Luiz Carlos Nardy 



Oprograma aqui apresentado, 
para Registro de Comunica- 
dos de Radioamador, 6 dedi- 
cado especialmente aos cole- 
gas que estao se iniciando na micro- 
computacffo, sendo, portanto, proposi- 
talmente siniples e didatico. Sua maior 
finalidade e, alem de mostrar mais uma 
utilizaca"o do micro, a de chamar a aten- 
9S0 para certas te'cnicas de programa- 
93b de grande utilidade para os nova- 
tos. 

programa armazena os dados de 
um QSO em apenas quatro campos. 
leitor interessado podera modificd-lo a 
vontade por meio da inser9Sb de novos 
campos (QTR, QRG, RST, etc.), evi- 
dentemente com prejuizo do numero 
total de registros a serem armazenados. 
Na configura9Sb mostrada, a capacida- 
de e de 360 registros, para equipamen- 
toscom 16Kb,oude 1200, para 48 Kb, 
e a variavel responsdvel por este ruime- 
ro, N, pode ser ajustada na linha 20. Os 
quatro campos sao: 

1 - INDICATIVO, com o maximo de 6 
digitos; 

2 - NOME, com o maximo de 10 letras; 

3 - CIDADE, com o maximo de 12 le- 
tras; 

4 - DATA, no formato DDMMAA. 

As variaveis das linhas 40 a 70, que 
sera"o utilizadas para o dimensionamen- 
to das matrizes das linhas 80 a 110, de- 
terminam o comprimento da informa- 



9S0 a ser arquivada em cada campo. No- 
tar que CP, comprimento do prefixo, 
ou melhor, do indicativo, por for9a da 
logica utilizada na pesquisa do arquivo, 
assume o valor 7, ao inves de 6. Tais va- 
lores podem ser alterados para mais, 
repito, a custa de uma diminui9a"o na 
capacidade de arquivamento. As varia- 
veis CN, CE e CD sao os comprimentos, 
respectivamente, do nome, do QTH e da 
data. 

O programa deve ser digitado com os 
cuidados habituais, e testado em segui- 
da com dados ficticios. Ao se digitar 
RUN e NEWLINE aparecera o seguinte 
MENU: 

1 - PROCURA INDICATIVO 

2 - REGISTRA QSO 

3 - ALTERA REGISTRO 

4 - LISTA REGISTROS 

5 - GRAVA COM DADOS 

Nesta altura, a unica op9a~o possivel 
e a 2 - REGISTRA QSO. Digitando-se 
"2", surgirao no video o numero do 
primeiro registro vago e o convite para 
digitar o indicativo, seguidos dos convi- 
tes para digitar o nome, a cidade e a da- 
ta. Finda a entrada de um registro, digi- 
te "S" se desejar outro registro, ou "N" 
para retornar ao menu. Digite mais al- 
guns registros, retome ao menu, esco- 
lha agora a op9ao 1 - PROCURA IN- 
DICATIVO, entrando, quando solicita- 



do, com o indicativo a ser procurado. 
Na parte superior do video serao mos- 
trados os dados do QSO, se encontrado, 
e na parte inferior aparecera* novamente 
o menu. Caso o indicativo solicitado nSb 
fa9a parte do arquivo surgira" a mensa- 
gem "INDICATIVO NAO REGISTRA- 
DO", seguida do menu. 

Todos os registros podem ser altera- 
dos, inclusive o indicativo. Para tal, o 
mais pratico e primeiro chamar o regis- 
tro com "1", anotar o seu numero e, 
entao, digitar "3". Sera" perguntado o 
numero do registro a ser alterado e, em 
resposta as perguntas que sera"o feitas, 
digite os novos dados. 

O comando "4" efetua a listagem dos 
registros existentes. Digitar o primeiro e 
o ultimo endere90s do bloco a ser lis- 
tado, obedecendo a orienta9ao do pro- 
grama. 

Estando tudo correto, podemos fa- 
zer uma copia do programa em fita cas- 
sete. Embora exista a OP9S0 "5" para 
essa finalidade, estamos interessados, 
neste ponto, em uma copia apenas do 
programa, que sera a nossa "matriz" 
para utiliza9oes futuras. Para tanto, di- 
gite BREAK em um momento em que 
o menu esteja na tela, em seguida GOTO 
3000, ligue o gravador e aperte NEW- 
LINE. Com isto sa"o apagados todos os 
registros e e desfeita a reserva de memo- 
ria, ficando o programa muito mais cur- 
to para ser copiado e em condi9oes de 



De PY1 DWM 



Aqui estamos em nova edicao, com mais um trabalho do 
PY2AQO-Luiz, comandante-em<hefe da Rodada do Micro. 
Segundo suas proprias palavras, trata-se de um programa essencial- 
mente instrutivo, orientado para o iniciante e que, a par das limita- 
$66s de memoria do equipamento a que se destina, pode ser expan- 
dido a vontade, crescendo junto com o usuario, ate se transformar 
em um "LOG" ta*o eficiente quanto se deseje. 

CQ! CQ! RODADA MS apela a todos os radiomicroamadores 
para que saiam "de tras do toco" e enviem as suas colabora^oes! 
Como ja tive oportunidade de dizer, nosso sucesso - ou insucesso... 
- depende do material que recebermos para publicac^To. Estou pen- 
sando em inaugural um topico chamado "Correspondencia NAO- 
recebida", no qual passarei a citar todas as promessas de colabotac^fto 
que nab passarem de promessas... Por falar nisso, alguem viu por 
ai'oPY2AC-Alfredo...? 

Congratulates efusivas da RODADA MS a PY2EM1-Strausse a 
PY2AIM-Sinesio, focalizados na reportagem "A Safra Jovem" (VE- 
JA n9 849, 12DEZ84), pelo desenvolvimento de suas eficientes in- 
terfaces de decodifica^ao de CW/RTTY. Um pouquinho de pacien- 
cia, por favor, e publicaremos a apreciaga*o da interface de CW, ja em 
nosso poder, juntamente com os depoimentos de varios felizes usua- 
rios. 

Correspondencia recebida: de PY3IT-Pivatto, PY2AQO-Luiz, 
PY5CIG-Alcione, GMPR e CWRJ... Registrado, com pesar, o fale- 
cimento de PY2EUZ-Domingos, grande entusiasta do micro e do 
radioamadorismo, pouco depois de ter iniciado entendimentos com 
a RODADA MS para a divulgacao de seus vastos conhecimentos. 

Uma dica sensational: se voce dispde de equipamento de VHF 
ou de UHF, saiba que e perfeitamente possivel transmitir e receber 



programas e/ou arquivos via e'ter, em comunicados ponto-a-ponto 
(por favor, nunca use uma repetidora para esta finalidade) e, o que e 
melhor, sem precisar gastar Q$J com um modem. Como? Simples: 
basta conectar a saida da porta de cassete do seu micro a entrada de 
microfone do radio e a saida de audio do radio a entrada da porta 
de cassete do micro, utilizando conectores apropriados aos seus 
equipamentos. Apos algumas tentativas, e utilizando os mesmos 
comandos do gravador, voce conseguira ajustar os niveis de sinal, 
exatamente como faz com gravador, e tera vencido todas as difi- 
culdades. Apesar de ficar restrito a comunicados relativamente de 
curta distancia (que tal dar um trato no seu sistema irradiante?) e 
apenas com possuidores de micros do mesmo tipo que o seu, tenho 
a certeza de que voce tera muitas horas de diversao com esta nova 
atividade, principalmente considerando que custo e zero, pois 
voce ja tern tudo o que e necessario para ingressar na telematica. 
Escrevam, contando os resultados de suas experiencias. 

Bern, por esta vez e so. Espero poder dizer, em nossa proxima 
edica*o, que recebi um verdadeiro pile-up de colaboracoes e que 
carteiro da Redacao foi para o hospital com estafa, HI! Ate la, 
bons QSOs e divirtam-se. HPE CUAGN 73 ES GL FM PY1DWM 



A RODADA MS e" coordenada por PY1DWM - Roberto Quito de 
Sant'Anna. Qualquer correspondencia e/ou colaboragdo deve ser 
enviada aos seus cuidados, para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos diretos via Rodada 
do Micro (7097 KHz, das 16:00 as 18:00h). Patrulha da Madruga- 
da (7055 KHz, das 22:00 as 23:00h) ou pelo telefone (0243) 
54-3355, ramal 594. 



entrar rodando automaticamente sem- 
pre que for carregado. 

A OP9S0 "5" do menu somen te sera" 
usada para a grava9a"o do programa com 
todos os registros ativos, ou seja, o Re- 
gistro de QSOs operational, a ser con- 
sultado e atualizado sempre que neces- 
sario. A gravactfo com os registros deve 
ser feita, se possivel, em HIGH SPEED, 
mas, neste caso o programa na"o entra- 



li rodando automaticamente quando 
carregado — rode-o, entao, com o co- 
mando GOTO 120, nunca com RUN ou 
GOTO 1 !! Da mesma forma, caso seja 
digitado BREAK durante a execu9Sb, 
recomece-o com GOTO 120. 

Continuo & disposigSo dos amigos 
diariamente, a partir das I6.OOI1, na 
Rodada do Micro, em 7097 KHz. Terei 
enorme prazer em encontr£-los por \i, 



para conversarmos sobre este programa, 
ou sobre qualquer outro assunto. 73' s 
e tudo de bom. 

Luiz Carlos Nardy — PY2AQO 6 funciona'rio 
publico aposentado e radioamador ha"37anos. 
Autodidata em programacao, possui um Dis- 
mac D8001 e um CP-200, sendo este o seu 
preferido. Colaborador da Rodada MS desde 
sua criacao, 4 o comandante da Rodada do 
Micro. 



5 REM - REG-STRO DE QSO 

6 REM - LUIZ C.NRRC'Y-PY2flQ0 

7 REM - JHU-BOX 28-CEP 17200 
S REM - ******************** 

10 LET UR=0 

20 LET N=360 

30 LET T=0 

40 LET CP=7 

50 LET CN=10 

60- LET CE = 12 

70 LET CD =6 

S0 DIM P$ !N, CP) 

90 DIM N$ (N., CN) 
100 DIM E* (N, CE) 
110 DIM Dt (N,CD< 

120 PRINT TfiB 8J "REGISTRO DE OS 
Q" 

130 PRINT RT 12,5; "1- PROCURfi I 
NDICRTO" 
140 PRINT TRE 5; "2- REGISTRY OS 

150 PRINT TAB 5; "3- fiLTERfl REC-I 
STRO ' 

160 PRINT TRB 5; "4- LlSTR REGIS 
TPOS" 

170 PRINT TRB Sj "5- GRflVft COM D 
ADOS' 
ISO PRINT 

190 PRINT TRB 5; "REGISTROS FEIT 
OS. ":UR 

200 PRINT RT 21.5; "DIGITE UM DO 
S NUMEROS" 
210 IF INK.EY$ = "1" THEN GOTO 300 
220 IF INK.Er$ = '"2" THEN GOTO 600 
230 IF INKEY#e"3" THEN GOTO 900 
240 IF INKEYS='4" THEN GOTO 200 


245 IF INKEY$="5" THEN GOTO 100 

250 GOTO 210 
300 CLS 
310 PRINT 

320' PRINT "DIGITE INDICflTIVO" . 
330 INPUT M* 
340 LET M=LEN M$ 
350 FAST 

360 FOR P=l TO N 
370 LET T-$=P$(P. (M + l) ) 
380 IF M$=P$(P, TO M) RND CODE 
(T$) =0 THEN GOTO 410 
390 NEXT P 
400 GOTO 4S0 



Registro de QSO 



410 SLOW 

420 PRINT PS'.P) 

430 PRINT "NOME".N$lP) 

440 PRINT "CIDflDE" ,E$tP> 

450 PRINT "DRTfl",D$(P) 

460 PRINT 'REGISTRO N . " . P 

4 70 GOTO 130 

480 SLOW 

490 PRINT 

500 PRINT "INOICRTI'.'O N»Q REGIS 
TRADO" 

510 GOTO 130 

600 FOR R=UR+i TO N 

610 3LS 

620 FRINT 

630 PRINT "REGISTRO N.",R 

640 PRINT 'DIGITE INDICATIUO" , 

650 INPUT P$(R> 

660 PRINT P$(R) 

670 PRINT "DIGITE NOME" , 

530 INPUT N$(R) 

690 PRINT N$'.R) 

700 PRINT "DIGITE CIDADE" . 

710 INPUT EJ(R) 

720 PRINT E$iR) 

730 PRINT "DIGITE DATA" , 

740 INPUT D$SR-) 

750 PRINT D$(R) 

760 IF T=l THEN GOTO 830 

770 PRINT AT 9.4: "OUTRO REGISTR 
0? (S OU NJ " 

730 INPUT R4 

720 IF R$ = "N ' THEN LET UR=R 

SO© IF R$="N" THEN GOTO 130 

810 IF Rlo"N" AND R$0"S" THEN 

GOTO 780 

820 NEXT R 

830 LET T=0 

840 GOTO 130 

900 CLS 

910 PRINT 

920 PRINT "N.DO REGISTRO" 

930 PRINT "A ALTERAR ?", 

940 INPUT R 

950 PRINT R 



960 IF R'<1 OR P>N THEN GOTO 940 

970 LET T=l 

980 GOTO 640 
1000 CLS 

1010 PRINT AT 8,0;"PARP COPIfiR" 
1020 PRINT 

1030 PRINT "DIGITE NgU LINE" 
1O40 PRINT 

1050 PRINT "E IMEDIATAr-lENTE" 
1060 PRINT 

1070 PRINT LIGUE GRAVADOR 
1030 INPUT ZS 
1090 CLS 

1100 SPUE ."REGISTRO' 
1110 GOTO i20 
2O00 CLS 
201O PRINT 

2020 PRINT "UAI LISTAR" 
2030 PRINT "DO NUMERO ' ? " . 
2040 INPUT NN 
2050 PRINT NN 
2060 PRINT ATE NUMERO" 
207© INPUT MM 
2080 PRINT MM 
2090 -FOR K = l TO 10 
2100 NEXT K 
2110 CLS 

2120 FQR l=NN TO MM 
2130 PRINT AT S , : "REGISTRO N, 
L 

2140 PRINT ' PREFIXO" .Piilj 
2150 PRINT "NOME" ,N$tLJ 
2150 PRINT CIDADE" ,E5 '.L' 
2170 PRINT DATA" ,DS (Li 
2130 IF LsWI THEN GOTO- 2250 
2190 PRINT ct 20 0. "DIGITE 1 PAP 
A CONTINUAP" 

2200 PRINT "DIGITE 2 PAPA PAPAP 
2210 IF INKEVts ■ 2" THEN GOTO 22" 


2220 IF INKE/SO-1" AND INKEYS 
"2" THEN GOTO 2210 
2230 CLS 
2240 NEXT l 

2250 PRINT AT 21 , O; "DIGITE QUfiLS 
UEP LETRA" 

2260 IF INr,EY5 = "" THEN GOTO 2260 
2270 CLS 
2280 GOTO 130 
3000 CLEAR 

3010 SAUE 'REGISTRB" 
3020 PUN 
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Tern hora que precisa ser micro 



A45 



responds 



PERGUNTA 



— Quais computadores, comerciali- 
zados no Brasil, podem operar com um 
modem ? Com um modem ligado a um 
Apple, por exemplo, eu poderia comu- 
nicar-me (acessar arquivos e programas) 
atraves da linha telefonica com um CP- 
500?Como? 

Existe a/gum computador no merca 
do brasil eiro que seja compati'vel com 
qualquer computador (Apple, CP-500, 
1-7000 ...), sendo que cada linguagem 
e compatibilidade seja selecionada pel a 
mudanca do disquete de um dos drives ? 
Quais computadores? (Adriano Roberto 
Lunsqui, SP) 
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A rigor, qualquer computador pode 
funcionar com um modem, para tal bas- 
ta que o equipamento possua uma inter- 
face RS 232 para a comunicacao serial. 
Na pr£tica, entretanto, a unica restripao 
existente 6 a disponibilidade comercial 
para tais equipamentos. 

Mesmo que seja possi'vel ligar um 
Apple a um CP-500, nao ha muito sen- 
tido em fazer tal ligaccfo, pois os progra- 
mas de um nao funcionariam no outro, 
ja" que o BASIC de ambos sa"o diferentes. 

Nao existe nenhum equipamento 
compati'vel com todos os equipamentos, 
e isto e praticamente impossfvel, pois 
cada um dos equipamentos menciona- 
dos possui uma filosofia de construcao 
interna bem diferente dos demais. 



PERGUNTA 



— Notei que os programas que utili- 
zam cddigo de ma'quina possuem v&rios 
tipos de chamadas, como por exemplo: 
RAND USR xxxxx; RUN USR xxxxx; 
PRINT USR xxxxx e LET S = USR xxx 
xx. Elas querem dizer a mesma coisa? 
Quando devo usar uma ou outra ? 

Muitos programas tern a seguinte li- 
nha: IF PEEK 16388+256*PEEK16389 
= xxx THEN... que quer dizer esta li- 
nha ? Em que situacoes devo utiliza'-la ? 

Em MICRO SISTEMAS n? 29, pag. 
25, o artigo "As novas fitas da soft kris- 
tian" menciona algo sobre Azimuth Re- 



gulating System. que vemaser? (Klaus 
Von Dem Bach, SP). 
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A funcSo USR, na realidade, necessi- 
ta ser precedida por uma instruca"o e pa- 
ra isso qualquer instruca"o do seu equipa- 
mento pode ser usada. A mais comum, 
no entanto, e RAND USR xxxx, pois 
qualquer que seja o valor de retorno de 
USR, nao provocara" erro para a instru- 
cao RAND. A segunda em importancia e 
LET S = USR xxx, porque desta forma 
a varidvel S recebera" um valor quando 
USR retomarao BASIC. 

Esta linha representa um teste de 
RAMTOP e serve para indicar aonde es- 
ta" posicionado o topo da mem6ria. A 
sua utilizacao depended do programa 
em questao. 

£ apenas um rufdo homogeneo que 
serve para ajustar o azimute da cabeca 
de leitura do gravador. Quern faz este 
ajuste e o prbprio usua>io, pois o som 
emitido serve apenas para se achar a 
melhor posicao do azimute para uma 
determinada fita, podendo variar este 
ajuste de fita para fita. 



PERGUNTA 



— Possuo um CP-200 e sempre que 
pretendo fazer um programa em Assem- 
bler acabo com o mesmo problema: 
como fazer uma funcao randbmica que 
produza numeros aleatorios e que nao 
siga uma sequincia como a do tipo que 
a instrucao LET A = INT(30xRND) faz? 
(Luiz Alexandre Reali Costa, SP). 
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Numeros randdmicos s6 sab obtidos, 
mesmo em Assembler, atraves da fun- 
cao RND. que se pode fazer e colocar 
um contador ate que uma tecla seja pres- 
sionada. Quando isto ocorrer, o sistema 
vai utilizar o valor do contador naquele 
exato momento. 



PERGUNTA 



- Como faco para testar a memdria 
disponfvel, durante a digitagao de um 
programa, no Microengenho? (Luiz G. 
Salamon, RS). 

———|| | I | || \j 'M gj 

A funcao FRE(O) retorna o espago li- 
vre de mem6ria disponfvel, tanto para 
dados quanto para linhas de programa. 



Se o numero for maior que 0, o pr6prio 
numero representa a quantidade de 
bytes disponfvel. Se, ao contrario, for 
menor que 0, enta"o a mem6ria disponf- 
vel 6 65536 menos (— ) o numero. Por 
exemplo: se o numero apresentado e 
—10, a memoria disponfvel sera" 65526, 
que 6" igual a 65536-10. No modo 
imediato, o resultado da instrucao FRE 
(0) da" a mem6ria disponfvel sem a 
definipao de qualquer varicivel (real, 
string etc.). Ao rodar um programa e 
ap6s serem definidas todas as variSveis, 
o valor dado por FRE (0) ser£ o numero 
de bytes disponfvel, descartando a a>ea 
usada para as variaveis. 
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— Por que a Proldgica nao lanca car- 
tuchos para o CP-400 com jogos tipo 
Atari e Intellivision, mesmo levando em 
conta a per da de graficos, ja que os car- 
tuchos do Atari e do Intellivision tern 
8 e 16 K respectivamente? TK-800 
da Microdigital pode utilizar os cartu- 
chos do CP-400 por inter m^dio de al- 
gum periferico? Qua/ a memdria do 
TRS-80 Color americano e de seus prin- 
cipals computer games ? Como estao dis- 
postos (cassete ou disco) e onde posso 
compra-los? Gostaria de saber por 
que nenhuma empresa, brasileira ou 
americana, nao produz micros com pat I'- 
ve is com o VIC -20, Commodore 64 e 
Sinclair ZX Spectrum? (Afonso dos 
Santos Souza - PA). 
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O Microprocessador do CP-400 dife- 
re do microprocessador utilizado nestes 
video games. Como os programas que 
vem dentro dos cartuchos sa"o escritos 
em linguagem de m^quina, esta diferen- 
ca entre microprocessadores impede o 
uso comum dos cartuchos de jogos. 

Nao temos conhecimento da fabrica- 
cao deste tipo de periferico e nem do 
TKS-800. 

O TRS Color americano e" apresenta- 
do em versoes de 16 ou 64 Kbytes, sen- 
ao que os programas vem em cassete. 

Os custos para se produzir esses equi- 
pamentos aqui nu Brasil nao seriam al- 
cancados, devido a problemas de escala 
de produpao. Aliado a isto, tais equipa- 
mentos, principalmente o Commodore, 
utilizam perif^ricos ou componentes es- 
pecfficos, portanto, diffceis de serem 
adquiridos. 




Envie suss perguntas para MICRO SISTEMAS/SEQAO MS RESPONDE: Av. Prasidente Wilson, 165/grupo 1.210, Centro. 
CEP 20030, Rio de Janeiro, RJ. 



O Etppa II Plus e um micro computactor, 

$o quo lem macro vanlagens 

E feito quase artezanalmente. porianio testado 

um a um. 

E isso g uma macro qualidade. 

Como 6 feito com componenies de alia qualidade, 

deniro dos melhores padroea de Ervgenharia. a 

conflabilidade do Elppa II Plus 6 macro 

custo da manutenp&o e micro o unico com um ano 

de garantia • macro qualidade com macro garantta 

Ja com o prepo aconlece uma coisa mleressante, 

devaria ser macro, mas quando voce venlica o custo 

de uma eonfiguracao ve que e micro. 

A assisiencia tecnica e macro - direla do labhcante 

ou al raves do seus credenciados. 

Ele e um Apple* compaHvel e dispoe de vasta gama 

de expansoes e perifericos a sua disposicao - 

CONTROLADOR DE DRIVE, CP/M, PAL-M, 80 

COLUNAS, SOFTSWITCH, 16K. 64K, 128K, GRAPH + , 

SUPER SERIAL CARD, SINTETFZADOR DE VOZ, 

MONITOR III, ele... - macro vantagem. 



Tern hora que precisa ser macro. 

Condusao: Seja para voce ou para sua empresa, 

micro ou macro, laca como a Rede Globo, a Rede 

Bandeiranles ou a Control que tern se utilizado do 

Elppa II Plus em suas necessidades empresariais ou 

como os (uncion&rk)s do Bamenndus para suas 

alividades profissionais e de lazer 

Faca como lanlos oulros, que estao aproveitando as 

vanlagens de um micro 

que sabe ser macro na r — ■ 

hora cerla, 1 fo\aCTO 

Escolha o Elppa II Plus 
a macro escolha. 




O micro macro. 




\^^z^ 
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Abrir um drive para tenlar conserta-lo e arriscado para 
quem nao tem expericncia, mas cuidar de sua manutenciio 
prcventiva e uma rotina facil 



Mantenha o drive 
rodando em ordem 



Jose Carlos Ntza 



E op in tiTo geral que os drives sffo 
os equipamentos que mais can- 
satn problemas em MSiemas de 
mierocomputadores. Uma cena 
comum e aquela em que se coloca um 
disquete no drive, aciona-se e nada. Ten- 
ia- se novamentc, e nada. Troca-sc o dis- 
quete por outro e aconteee o mesmo. A 
situa^ao dei.xa o usuario muitas vezes 
sem saber o que fa/.er. Como vamos vcr 
adiante, ha" alguns procedimentos que 
ajudarao n esses casos. 



ma9oes que chegam aos drives tem a 
mcxrna finalidade, que podcria ser resu- 
mida como a de acionar o movimento 
dc rotacffo dc urn disquete, e escrever ou 
ler as informatics neJe com id as. £ im- 
portante saber que nem rodos os drives 
sa"o iguais. Os da linha Apple sa"o dife- 
rentes dos existences para a familia 
TRS-80, e mesmo para um determinado 
micro existem varies fabricanles de dri- 
ve. Tudo isso, porem, na"o e problcma, 
como vcremos. 



C 



Microcrwi^". 



mi 1. 1 



-•' 



Con ttnln 



I n t • ■ ■ 

dt- priu 



ui*k 



Figura I 



Os drives nada mais sao do que uni- 
dades de arniazenamento dc in forma- 
9ties, cuja fun^fo bastca e alocar os da- 
dos na superfi'cie magnetica de mis dis- 
quete, como mostra a figura I. Um con- 
junto de sirtais sai do micro, passa pela 
interface c chega final men te ao drive, 
A interface e um circuito eletronico c o 
drive um sistema mislo (cletrdnieo-nic- 
canico). 

As interfaces sao dife rentes para os 
di versos tipos de micros, mas as infor- 



Podemos dividir os drives em dois 
grandes tipos: os da linha TRS-80, que 
servem para os IBM /PC, Osborne, Kai- 
pro etc., c os da familia Apple, A maior 
parte dos micros nationals (exceto os 
dc logica Sinclair) se bascia em uma das 
marcasacima. 

PRtNCtPAlS DEFE1TOS 

Agora, com alguns ponios ja" esciare- 
cidos, vamos discutir os problemas mais 



comuns. E se seu drive na"o est a funcio- 
nando, na*o desanimc. Observe as ques- 
klesa seguir; 
» As ligacoes estiJo bem feitas? 

* No caso do TRS-80, o drive foi bem 
ligado a tomada? 

* O cabo de interconexa9a"o esta na po- 
sieffo correta? Caso a luz vermelha 
(led) na"o se apague, invcrta a posieffo 
do concctor dodrivo. 

* disquete foi Colorado corretamen- 
te? 

Na verdade, quando o drive nflo fun- 
ciona devemos levantar algumas hipdte- 
ses para local izar o defeito: o computa- 
dor, a interface, os cabos, os disquetes e 
finalmente o drive. No caso do micro e 
da interface, e soluc^o mais facil e a sim- 
ples troca por outra compativcl, para 
testar o sistema, talvez com um amigo, 
Os cabos sSo um problema a parte e 
muilo suscetiveis a defeitos por mau 
contalo. Por isso, muito cuidado com 
eles, Em caso de suspeitar que scjam a 
causa do problema, o ideal e medir a 
continuidade com um obi'metro, entrc 
os pinos correspondentes. 

£ importance nunca de sconce tar tun 
cabo puxando pelos fios, e sim seguran- 
do pelo collector, O melhor. mesmo, 6 
deixa-los sempre mterligados. Os dique- 
les merecem um quadro separado que 
deve ser lido com muita ate 119 ao, Sc por 
eluninaca"o as quatro prime iras causas 
sao descartadas, resta examinar o drive. 
Antes de qualquer providencia* desligue 
o computador. E prepare uma limpcza 
no cquipamento com o seguinte mate- 
rial: alcool, cotonetes, disquete virgem, 
perfex ou um pano limpo que nao solte 



Motor da 
tracionamento 



Detetor de index 



Patafuso da placa 



detetor de escri; 




?ara£uso de ajustt 
da trilha «ero 



Trilho de suporte 
da cabeva 



Stepper motor 



xo de tracionan»-nto 
do disquete 



Figura 2 

fiapos, oleo de maquina de costura, cha- 
ves de fenda Philips e alicate. 

PROCEDIMENTO CUIDADOSO 

drive e um equipamento muito 
sensivel e deve ser manuseado com bas- 
tante cuidado na hora de ser retirado. 
No Apple e so liberar os quatro parafu- 
sos de baixo e deslizar a tampa para a 
frente; solte depois os outros quatro pa- 
rafusos do mesmo lado, liberando a 
tampa de tras. No TRS-80 (modelo I) 
siga igual procedimento em rela^ao aos 
quatro parafusos, que sao laterals. No 
modelo III, ha um pouco mais de tra- 
balho. micro deve ser deitado de lado 
e retirados os parafusos debaixo. Reco- 
loque-o na posic^o correta com muito 
cuidado e levante a parte superior do 
computador. Muita aten$a"o com essa 
opera9ao para nao danificar o tubo de 
imagem. Feito isso voce tera a sua direi- 
ta os drives. Entao e so liberar os parafu- 
sos laterals. 

Daqui para a frente os drives do TRS- 
80 ou Apple serao tratados como se fos- 



sem iguais. No caso de alguma particula- 
ridade entre eles sera feita a distin9a"o. 

Continuando, solte os dois parafusos 
que prendem a placa do circuito impres- 
so e desconecte com o maior cuidado a 
cabe9a do drive. Levante a placa devagar 
e fa9a uma rota9ao de 1 80 graus. Nao hJi 
necessidade de se desligar os conectores 
na parte traseira, mas tenha aten9a"o 
para nao danifica-los. 

Na figura 2 temos um lay-out da par- 
te superior do drive. Podemos destacar 
como pe9as importantes a cabe9a, a par- 
te superior do stepper motor e o motor 
do drive. 

LIMPEZA DA CABECA DO DRIVE 

Grande parte dos defeitos se origina 
pelo acumulo de sujeira na cabe9a do 
drive. Uma maneira facil de limpa-la e 
com o uso de um disquete de limpeza. 
Porem, nem sempre esse disco esta a 
mao. E devem ser evitados aqueles de 
efeito abrasivo, que podem, no caso de 
serem usados frequentemente, danifi- 
car a cabe9a. De qualquer forma, sua 




Figura 3 

utiliza9a"o precisa ser evitada seguida- 
mente. A outra forma de limpeza e com 
cotonete levemente embebido em al- 
cool. Na figura 3, podemos ver esse pro- 
cesso. 

Ha uma serie de etapas que devem ser 
obedecidas nessa tarefa. Abra a porta do 
drive, levante com cuidado o mecanismo 
da almofada e limpe a cabe9a. Depois de 
seca, recoloque suavemente a pe9a no 
lugar. A cabe9a tem um movimento pa- 
ralelo ao eixo longitudinal do drive, 
apoiada em dois trilhos. Com o passar 
do tempo e o acumulo de poeira nesses 
trilhos, pode surgir dificuldade para 
que o movimento se processe livremen- 
te, defeito caracterizado por um ruido 
de atrito. Neste caso, pegue um cotone- 
te e umede9a-o com uma gota de oleo, 
passando-o nos dois trilhos. Na"o esque9a 
que a quantidade deve ser minima, para 
nao respingar em outros locais. 

AJUSTE DA VELOCIDADE 

Um desajuste de velocidade pode ser 
a razao para alguns problemas. Ha dis- 



Compreenda melhor os pequenos defeitos 



A 



pequena descri^do a segiiir nao 
tem como objetivo analisar em 
pormenores de funcionamento o cir- 
cuito eletronico do drive, mas sim 
auxiliar na compreensdo de um possi- 
vel defeito. Para exempli ficar falare- 
mos de um drive de TRS-80, cujo 
funcionamento e todo na base de 
hardware, o que nao aconteee com o 
Apple, que tambem tem software pa- 
ra as mesmas finalidades. 

Ao se dar um boot (inicializacao) 
no drive, ao mesmo tempo em que se 
inicia o movimento de rotacSo do 
disquete, a cabeca e deslocada ate a 
trilha zero, que e a externa. Nela ha 



informacoes que vao levar a cabeca 
para uma determinada trilha onde 
normalmente se encontra o diretorio. 
Isso e feito (incremento de cada tri- 
lha) pelo pulso do index, um circuito 
que detecta cada vez que o faro do 
index, no disquete, passa por ele. A 
trilfia zero e detectada por uma cliave 
que se fecha quando a cabeca retorna 
e o movimento, para frente ou para 
tras, e feito em con/unto por duas li- 
nfias: step e direcao. 

Ha ainda os circuitos de leitura e 
escrita. Todos eles sa~o monitorados 
pela interface do drive, que e na rea- 
lidade quem da as ordens para as di- 
versas fases e as interrelaciona entre 



si. Existe tambem um circuito que 
controla a velocidade de rotaeffo do 
drive e um potencibmetro que permi- 
te sua regulagem para 300 RPM. 

Finalmente, as tensoes requeridas 
sao de +5 e +12 volts, fornecidas por 
uma fonte de alimentacao, separada 
do TRS-80, ou pelo proprio compu- 
tador no caso do Apple. 

Nas interfaces os defeitos ocorrem 
por queima de componentes, princi- 
palmente dos CI's e capacitor es de 
tantalo. A reparacdo deve ser feita 
por pessoa com conhecimento de cir- 
cuitos eletronicos, empregando apa- 
relhos apropriados. 
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MANTENHAO DRIVE RODANDO EM ORDEM 



Potenciometro de a juste 
de velocidade 




Figura 4 - Placa controladora de velocidade, sendo mostrado o poten- 
ciometro de a juste. 



quetes que carregam, outros na"o. Ha 
sistemas operacionais que funcionam 
com determinado programa e outros 
para os quais esse mesmo programa nao 
e aceito. £ importante saber que existe 
uma placa que controla a velocidade do 
drive ( figura 4). Existem modelos de 
drives - tanto na famflia Apple quanto 
TRS-80 — que ja nao apresentam essa 
.placa, sendo o circuito de controle in- 
corporado a placa principal (figura 5). 

A velocidade do drive deve ser de 
300 RPM e o componente que permite 
o seu ajuste e o potenciometro. Mas 
existem diversos artificios para a regula- 
gem de velocidade, veremos dois dos 
mais utilizados. primeiro deles e com 
o emprego de um programa. Neste caso 
ele vem incorporado normalmente a dis- 
quetes de teste, como por exemplo o 
Apple Cilin. Utilize-o seguindo as instru- 
cts do manual para obter na tela a ve- 
locidade. Depois e so ajustar o potencio- 
metro com uma pequena chave de fen- 
da, girando o eixo para um lado ou ou- 
tro. Deve-se tentar aproxima-la ao maxi- 
mo de 300 RPM, ou em outros progra- 
mas zerar-se a margem de erro. 

Ha tambem o sistema de regulagem 
com o uso do disco estroboscopico. 
Quern na"o possui o programa de teste 
pode empregar este m£todo. Vemos na 
figura 6, um disco que possui em seu in- 
terior duas circunferencias raiadas. A in- 
terna com o numero 50 e a externa com 
o numero 60. O processo e bem simples. 

Pegue uma lampada fluorescente e 
ilumine diretamente esse disco. Acione 
o computador. Como a luz fluorescen- 
te pulsa numa freqiiencia de 60 hz, quan- 
do o drive estiver com a velocidade cer- 
ta havera a impressao de que a circun- 
ferencia raiada externa do disco esta 



Figura 5 




Figura 6 



parada. Para a regulagem ajuste com 
cuidado o potenciometro ate parar o 
disco estroboscopico. 

OUTROS AJUSTES 

Outros tipos de defeitos tambem sa"o 
normais, porem menos freqiientes do 
que os ja analisados. Eis alguns deles: 



* Descentralizaca"o do detector de in- 
dex (nao existe no Apple). 

* A chave (switch) detectora da trilha 
zero pode na"o estar totalmente sincro- 
nizada com esta trilha, sendo talvez ati- 
vada um pouco antes ou depois, fazen- 
do com que o movimento da cabeca nao 
seja correto, pois a trilha zero e usada 
como referenda para as demais. No 
Apple a deteccao e feita de maneira dife- 
rente mas com a mesma finalidade. 

* Alguns dos parafusos com lacre, que 
servem para ajuste da trilha zero, pres- 
sa"o da almofada da cabeca etc.,podem 
estar folgados, causando a pane. 

Estes defeitos sao de origem mecani- 
ca e a correca"o deve ser feita com o em- 
prego de um disco de alinhamento e um 
osclloscopio de duplo traco. Trata-se de 
um trabalho delicado, que so deve ser 
feito por tecnicos especializados e de- 
vidamente aparelhados. O disquete e 
gravado por uma cabeca especial, tendo 



Amplitude minima 1/8 
do valor maxima 




Alinhamento 
Per feito 



Para os disquetes, tratamento especial 



Os disquetes requerem, sem diivi- 
da, um manuseio bastante cuida- 
doso. Quern ler o artigo de Antonio 
H.P. Arantes, nos niimeros 9 e 10 de 
MS, vera que ha muito mais tecnolo- 
gia empregada nos discos flex iveis do 
que se possa imaginar. A figura 8 re- 
presenta um disquete e algumas de 
suas partes. A figura 9 mostra a su- 
perficie de um disquete e as dimen- 
soes de alguns elementos referenda- 
dos entre si. 

Como curiosidade e bom saber 
que a cabeca do drive nao assenta to- 
talmente sobre o disquete e vai dai 
uma dica: nao force o disco ao Colo- 
cd-lo, pois poderia haver um contato 
forcado e o drive nao funcionaria 
adequadamente. Nunca e demais re- 
pair as precaucoes necessdrias com 
os discos: 

* Mantenha-os afastados de qualquer 
fonte eletromagnetica ou mate- 
rials magneticos. E comum colo- 
car um disquete encostado ao mo- 
nitor ou televisao e quando se vai 
utilizd-lo nao entra Provavelmen- 
te foi apagado por um campo ele- 
tromagnetico. 

* Conserve-os em posicao vertical, 
para nao empend-los, e dentro de 
seus envelopes. 

* Nao fume, coma ou beba em cima 
dos disquetes. 

* Nao coloque os dedos nas ranhu- 
ras de leiturajescrita. 

* Nao os coloque em lugares mofa- 
dos ou muito quentes e nem dire- 
tamente sob os raios solares. 

* Escreva as etiquetas fora do dis- 
quete. O uso de canetas ou ob je- 
ws pontiagudos ajuda a danificd- 
los. 

* Nao dobre os disquetes. 

* Em drive que usa uma so cabeca 
(face simples) o lado que esta em 
uso e o oposto ao da etiqueta de 
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Figura 8 

fdbrica. Cuidado redobrado com 
ele. 

* Lugares que tenliam tapetes ou 
carpetes nao sffo os mais indicados 
para que fiquem os computadores, 
pois sd~o ambientes empoeirados 
por natureza. 

* Nunca passe o espanador em areas 
proximas ao seu micro, pois espa- 
nar so muda o po de lugar. Use, 
em vez disso, um aspirador de po. 
Finalmente, se o seu drive tern 

duas cabecas (dupla face) as informa- 
coes contidas nos disquetes (dos dois 



la dos) foram escritas com o disco gi- 
rando no mesmo sentido. No caso de 
uma so cabeca, temos que retirar o 
disquete e inverter a face. Com isso 
estamos tambem trocando o senti- 
do de rotacao. Nesse caso ha possi- 
bilidade de se desprenderem parti- 
culas de sujeira do disquete devido a 
inversdo do movimento. Como a dis- 
tancia entre a cabeca do drive e a su- 
perfi'cie do disquete e muito pequena 
qualquer particula de sujeira assume 
dimensoes consideraveis, podendo 
danificd-lo. 
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Figura 9 



Figura 7 



duas trilhas (0 e 16) como padrOes de 
referenda. 

A trilha 16 serve para alinhar a cabe- 
?a do drive. Com o osciloscopio ligado 
em pontos especificos e devidamente 
setado, sao obtidos dois lobulos, confor- 
me a figura 7. Ha necessidade, ainda, de 
um aparelho ou programa para se deslo- 
car ate a trilha desejada. A trilha zero 
serve para sincronizar a cabe$a com esta 
posicao inicial. 

Existem algumas variaveis em jogo e 
para um correto alinhamento devem 
ser afrouxados os diversos parafusos que 
estao lacrados. Feito isso, gira-se o step- 
per motor nos dois sentidos, ate se cbter 
os dois lobulos simetricos e de igual am- 



plitude. Desloca-se a cabeca a trilha ze- 
ro, verificando se esta com o maximo si- 
nal. Qualquer ajuste neste caso se pro- 
cessa no parafuso de parada da trilha ze- 
ro. Outra coisa importante e que o drive 
as vezes se encontra desalinhado para as 
trilhas inferiores e nao para as superio- 
res, e vice-versa. 

Reposicao de pecas e talvez o item 
mais problematico, ja que, por exemplo, 
as partes mecanicas nao sao encontraveis 
no mercado. Mas e pouco comum haver 
o desgaste delas. Os componentes ele- 
tronicos (com algumas excecOes) sao 
normalmente de facil reposica"o. 

Este artigo e resultado da experiencia 
do autor ha varios anos em projetos e 



manute'^ao de microcomputadorcs, 
tendo mais finalidade preventiva que 
corretiva. Com esta leitura o usuario 
pode se prevenir contra alguns possi'veis 
defeitos. Mas ele deve ter em mente que 
qualquer manutencaO deve ser muito 
cuidadosa, para que nSb se agrave mais 
um problema que jn exista. 

m 



Jos6 Carlos Niza 6 Engenheiro Eletronico for- 
mado pela Faculdade Nuno Lisboa e trabalha 
com microprocessadores nas dreas de manu- 
tencao, projetos e ana"lises de sistemas na 
Computer Service, RJ. 
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Balancete 



Roberto Martorelli Luz 



Sem diivida nenhuma, elaborar um balancete, por menor 
que seja, e sempre uma tare fa desgastante. Foi com o objetivo 
de facilitar este trabalho que se desenvolveu este programa. 

programa se inicia pedindo mes e ano e, em seguida, o 
nome da empresa ou entidade. Apos digitados esses dados, 
ele perguntara se deseja inicializar os lancamentos, devendo, 
entao, digitar-se um S. Porem, apos inseridos alguns dados, a 
resposta devera ser sempre N, a fim de nab se perder os dados 
ja armazenados - no caso de arquivos ja iniciados, podera ser 
posta uma salvaguarda. 

menu apresenta oito opcQes. A primeira delas lista o 
balancete, e a segunda cadastra as contas e o lancamento ini- 
cial. Caso se queira apenas cadastrar as contas, basta digjtar o 
valor 0. A terceira opcao adiciona lancamentos, onde sera per- 
guntado se e' de'bito ou cre'dito. Nesta sub-rotina, os valores se- 



rao acumulados e, em caso de erro, os mesmos serao diminui'- 
dos atraves da opcao 7. Apos terem sido digitados todos os 
dados, resta uma pequena rotina que indagara acerca do saldo 
anterior e atual. Estes valores nab sab arquivados, mas apenas 
precedem a impressao do relatorio atraves da opcao 6. A op- 
cao 4 apenas pede o codigo da conta e a retira juntamente com 
o valor: atraves da opca"o 8, encerram-se os lancamentos, e os 
dados sa"o regravados. 



Roberto Martorelli Luz 6 economista e trabalha no Banco do Brasil. Hi 
mais de um ano ele possui um DGT-101 , no qua/ desenvolve trabalhos 
dentro de sua especialidade. 
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1220 


NEXT I 


1230 


CLOSE 2 


1240 


RETURN 


1250 


FOR 1=1 10 N 


1260 


IF A<I>=X THEN GOTO 1300 


1270 


NEXT I 


1280 


PRINT"L«m .lmento nan entont r-ado. . ." 


1290 


1^0 


1300 


RETURN 


1310 


INPUT"SALD0- ANTERIOR :";ANtt 


1320 


Ptt-ANMiDII 


1330 


INPUT"SALI>0 ATUAL :"iATtt 


1340 


rn=ATMiCH 


1350 


RETURN 




■ 




sa 



Balancete 



Cursos 



DIGITAQAO DE DADOS 
OPERAqAO DE MINIS 
PROGRAMAqAO PADRAO 

- BAS / LOG / COBOL / ESTAG. 
LINGUAGENS OPCIONAIS 
-COBOL ANS- IBM 

- BASIC COMERCIAL 
<LABO E SISCO) 

- MUMPS (COBRA 300/500) 
ANALISE DE SISTEMAS 
PROGRAMAqAO DE MICROS 

- BASIC I - INTRODUQAO 

- BASIC II - AVANQADO 

- CP/M -SISTEMAOPERACIONAL 
INFANTO JUVENIL (8 A 16 ANOSJ 

- BASIC 1.o/2.oGRAUS 

- CRIANDO COM LOGO 
USUARIOS DE MICROS 

- VISICALC 

- EDITOR DE TEXTOS 



PEOPLE 

Computacao 



Ensino com Alto Padrcfo de Qualidade 

CAMPINAS : Rua Cdsar Bierrenbach, 171 - Fone 8-3608 
SAO PAULO : Av. Rouxinol, 201 - Moema - Fone 61-4595 
,R. JANEIRO : Av. N. S. Copacabana, 1417 - Lj. 313 - Fone 521-1549; 



1 'It ESTE PROGRAMA EMITE BALANCETE » 

2 '» Econ. ROBERTO MARTORELLI LUZ « 

3 '* AV. 7 DE SETEHBRO, 1183 » 

4 *« FONEI (055) 423-1726/1259 » 

5 '• 97.560 QUARAI-RS » 

6 '»*** mum »»*»»»» mtmntinntii mi* turn »*» 
10 CLEAR 5000 

20 CLS8INPUT"HES (MMHMMM/AA) I"|F» 

30 PRINT" INPUT"QUAL A EHPRESA J"iJS 

32 PRINT: INPUT"QUAL NOME GUE IDENTIFICARA AR0UIV0"»U4 

35 V4="HHtt.MHH,HH*.MH" 

40 GOSUB 180 

50 CLS:PRINT TAB ( 15) »"«mt BALANCETE **»" 

60 PRINTsPRINT TAB<15>|"1. Liatmr o Balancet«" 

70 PRINT TAU(i:. );":;. Cadastral- Conta • Lancanento Inlcial" 

80 PRINT TAB<15)j"3. Adiciona lancanentos" 

90 PRINT TAB(15)i"4. Retirar um lancamento" 

100 PRINT TA8<15)|"5. Iaprlalr o Calxa" 

110 PRINT TAB<15>|"6. Fechar o «««" 

120 PRINT TAB(15);"7. Eatornar Lancamentoa" 

130 PRINT TAB<15>»"8. Encerrar os lancanentos" 

140 PRINT:PRINT»INPUT"QUAL A OPCAO "»0 

150 ON GOSUB 340,530,630,760,930,1310,820,1180 

160 IF 0<>8 GOTO 56 

170 STOP 

180 DIM A<5OO),C4(500>,VH(50O>,YM<50O> 

190 N-0 

200 VH-0 

210 YM-0 

212 DH-0 

214 Cll 

215 V1M=0 

220 CLSHNPUT"DESEJA INICIALIZAK OS LANCAH£NTOS"(LS 

230 IF LS-"S" THEN GOTO 310 

240 0PEN"I",1,U4 

250 IF E0F<1) THEN 290 

260 N-N+i 

270 INPUTH1,A<N),C*(N),VH<N),YH<N),DM,CM 

280 GOTO 250 

290 CLOSE 1 

300 RETURN 

310 0PEN"0",2,U4 

320 CLOSE 2 

330 RETURN 

340 CLS:PRINT TABC5);' 

DO HES DE: ";F5 

350 PRINT STRINGS<63,"=") 

360 PRINT"COD."jTAB(6);"C0NTA"jTAB(35)i 

SAS" 

370 PRINT STRING*<63,"-"> 

380 FOR 1-1 TO N 

390 IF A(I>"0 THEN GOTO 450 

400 PRINT USING"HHH"sA<I)|iPRINT"-"»5PRINT TAB<5)sC4(I> 

410 PRINT TAB<32)» 

420 PRINT USING V4;VM(I> 

430 PRINT TAB(48)[ 



'jJlj" »**":PRINT TAB<12)t"BALANCETE 



"RECE ITAS" J TAB < 52 ) t "DESPE 



440 PRINT USING VS(YHU) 

450 NEXT I 

460 PRINT STRING4(34,".");iPRINT STRINGK29,"-") 

470 PRINT"TOTAL RECEITAS iTAROSt. 

480 PRINT USING V4;DH 

490 PRINT"TOTAL DESPESAS :";TAB<48)| 

500 PRINT USING V4,CH ' 

510 PRINT:INPUT"C0NTINUA"[G4 

520 RETURN 

530 N=N+1 

540 INPUT"C0DIG0 DA C0NTA:";A<N> 

545 IF A(N)=0 THEN 620 

550 INPUT"N0ME DA CONTA: "fC4(N> 
560 INPUT"DEBIT0/CREDIT0:"fZ4 

570 INPUT"Valor Cr4 : "jUlM 

580 IF Z4="D" THEN VH<N)=V1M 

590 IF Z4="C" THEN YH(N)»V1H 

600 DH=DM + Vtt<N) 

610 C«=CM+YM(N) 

615 GOTO 530 

620 RETURN 

630 INPUT"C0DIG0 DA CONTA "tX 

640 GOSUB 1250 

650 IF 1=0 THEN RETURN 

660 CLS:PRINT"C0NTA :";C4(I) 

670 INPUT"Nova Conta :";C14 

680 IF C14<>""THEN C4(I)=C14 

685 PRINT 

690 PRINT TAB(8)f"RECEITAS";TAB(25);"DESPESAS" 

695 PRINT TAB(8>," ",TAB<25>," " 

NG°V4;Y I m[i} A8(3) ' SPRINT USING V1 ' VH<I " :PRINT TAB<20) !S PRINT U8I 

705 PRINT:PRINT 

710 INPUT"VALOR DO LANCAMENTO :"sBM 

720 INPUT"DEBITAR OU CREDITAR (D/C) :",Q4 

730 IF Qi="D" THEN VH< I )=VM< I )+BH :DM=DW+BM 

740 IF Q4="C" THEN YH( I )=YH ( I )*BH:CH=CH+BH 

750 RETURN 

760 INPUT"CODIG0 DA CONTA:";X 

770 GOSUB 1250 

780 IF IO0 THEN AU>=0 

790 IF A(I)=0 THEN DH=DH-V8<I> 

800 IF A<I>=0 THEN CM=CH-Y»(I) 

810 RETURN 

820 INPUT"C0DIG0 DA C0NTA:",-X 

830 GOSUB 1250 

840 IF 1=0 THEN RETURN 

850 CLS:PRINT"CONTA: "»C4U> 

860 PRINT:PRINI TAB <8> :"RECEITAS"; TAB (25) ;"DESPESAS" 

865 PRINT TAB(8)»" "rTAB(25)f" ——'■ 

N8°V4"h(I> AB<3) ' SPRINT USING Vl!VMa>F !PRINT TAB<20);:PRINT USI 

880 PRINT:PRINT:INPU!"VALOR DO EST0RN0(".KH 

890 INPUT"DEBITAR/CREDITAR <D/C) ";M4 

900 IF M4="I>" THEN VH< I >=VM ( I ) -KH:DH=DH-KH 

910 IF M»="C" THEN YH( I )=YM( I >-KK:CH=CM-KH 

920 RETURN 
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Sim, desejo receber 

□ a fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 4.300,00 referente a 
despesas do correio. 

O os numeros atrasados de MS, pelos quais pagarei o preco de Cr$ 1 mil* por exem- 
plar. Me interessam as edicoes: □ MS n9 31 D MS n9 33 

D MS n? 32 D MS n? 34 


projeto MICROBUG, desenvolvido pela equipe do 

CPD de MS, foi criado para auxiliar o entendimento e 

a exploracao dos recursos existentes nos micros da 










linha Sinclair. Sua construcao, passo a passo nas 
paginas da revista, tern tido importdncia decisiva no 






aprendizado e desenvolvimento dos usua>ios na 

programapao em linguagem de m^quina. 

Devido ao enorme sucesso do MICROBUG, refletido 

nas inumeras cartas que temos recobido, a ATI 






TOTAL: CrS 












NOME- 


Para tal, foi contratado um estOdio especializado, 






ENDERECO 




garantindo um padrao de gravaca"o profissional e 




uma embalagem inviol^vel que voce" ira apreciar. 

Como a documentacao do MICROBUG comecou em 

MS n9 31 , aqueles que adquirirem a fita terao a 

OPORTUNIDADE DE COMPRAR OS 

EXEMPLARES QUE NAO POSSUAM POR UM 

PRECO ESPECIAL. Aproveite esta chance e 






CIDADE 




CEP 












Para tal,estou enviandoum cheque nominal a:ATI Editora Ltda. (Projeto MICROBUG) 
Av. Presidents Wilson n? 165,grupo 1210- Centro- CEP 20030- Rio de Janeiro, RJ. 
* Despesas de reembolso exclui'das 

OBS. : Os produtos acima podem ser adquiridos diretamente em nossos escritdrios do 
Rio ou Sao Paulo sem despesas de correio. 










usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao ladoe mande j<i o seu pedido. 






TIRAGEM LIMITADA. 
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Controle de Congelados 



Marcelo Renato Rodrigues 



Atuabnente observa-se urn cresci- 
mento consideravel da demanda de pro- 
dutos congelados, seja por motivos prd- 
ticos ou economicos. Para possibilitar 
a escolha do produto com seguranca, 
alem de informar onde encontra-lo rapi- 
damente dentro daquela deliciosa confu- 
sao que e um congelador dome'stico, de- 
sen volveu-se este programa. Ele cadas- 
tra produtos em disquete, permitindo 
consulta, exclusao, alteracao de dados e 
obtencSo de listagens. 

FRI e um programa conversacio- 
nal e, portanto, a sua utilizacao e orien- 
tada atraves de menus, dispensando 
preocupacQes maiores. Foi concebido 
para possibilitar o acesso aos dados con- 
tidos no arquivo, tanto pelo nome do 
produto ou parte dele quanto pelo c6- 
digo do registro, permitindo a varredu- 
ra de todos os produtos com o nome 
fornecido. Para isso, ele constroi uma ta- 
bela-i'ndice na memoria que dara a ne- 
cessaria velocidade de acesso quando 
nesta segunda modalidade de pesquisa. 

Alem dessa facilidade, o FRI possui 
rotina para formataca"o dos dados de 
entrada via INKEYS e executa o reapro- 
veitamento dos regjstros excluidos, oti- 
mizando, assim, a utilizaca"o do dis- 
quete. 

£ emitida, quando solicitada, a lista- 
gem organizada que pode ser apresenta- 



LISTAGEM DE 


PRODUTOS CONGELADOS 


EMITIDA 


EM 00/00/ Q 




PRODUTO 


DESCRICAO 


GAVETA DATA 


REG 


ALMONDEGAS 


ERITAS COM MOLHO 


J.'i 


12/01/84 


1 


BACALHAU 


GRELHADO A BEIROA 


1 


13/02/84 


8 


BOLINHOS 


DE CAMAROES 


3 


1.0/12/84 


6 


BOLINHOS 


DE BACALHAU 


g 


iS/01/84 


7 


C A BR I TO 


ASS ADO AO PORNO 


4 


13/02/84 


5 


CARNE ASS AD A 


A PORTUGUESA 


5 


18/02/84 


4 


COEI..HO 


A JAR DINE IRA 


5 


07/09/83 


14 


COSTELETAS 


DE POR CO GRELHADAS 


6 


19/0.1/04 


2 


COUVE-FLOR 


AU GRATIN 


7 


13/02/84 


3 


FRANGO 


FRIT© COM MOLHO 


5 


22/12/83 


12 


L.EITAO 


AGS ADO A MINE IRA 


2 


20/11/83 


13 


PEIXE 


MOOUECA A CAIPIRA 


2 


12/02/84 


1.1. 


PUDIM 


DE BANANA 


7 


10/02/84 


9 


TORT A 


DE MO RANG OS 


3 


15/02/84 


10 


TORT A 


PALM I TO E CAMARAO 


6 


12/03/84 


fc5 



Figura 1 



da de duas maneiras: com os produtos classificados em ordem 
alfabe'tica (Figura 1) e por gavetas ou prateleiras (Figura 2). 

Na figura 1, cada linha corresponde a um produto, e as 
informacoes de cada um deles, alem do numero do registro, que 
e uma das modalidades de acesso, sao acompanhadas por um re- 
tangulo. Cada produto retirado do congelador deve correspon- 
der a uma marca neste retangulo para posterior atualizacao do 
arquivo em disco. 

Os produtos sao cadastrados atraves de seu nome (14 
posicoes), descricao (20 posicoes), gaveta (de 1 a 7) e data 
(dd/mm/aa). 

Agora maos a obra e bom apetite! 



Marcelo Renato Rodrigues 4 engenheiro eletricista, formado 
pela Escola Polite" cnica da Universidade de Sao Paulo. Atual- 
mente ele trabalha na CESP — Companhia Energe'tica de Sao 
Paulo como Assessor de Planejamento da Vioe-Presidincia de 
ProducSo e Transmissao de Energia E/e~trica. 



GAVFrA 


PRODUTO 


DESCRICAO 


DAI A 


1 


BACAl HAD 


GREI IIADO A HI IROA 


13/02/04 


2 


HOI IHHOS 


OF BACAl HAH 


15/01/81 




1 FITAO 


ASSAOO A MINE IRA 


S20/J 1/03 


? 


PI IXB 


MOOIIFCA A CATPIRA 


12/02/84 


3 


noi. INHOS 


DE CAMAROES 


10/12/84 


3 


TORT A 


DF MORANGOS 


15/02/84 


•1 


caiir i lo 


ASSAOO AO 1 ORWO 


13/02/84 


5 


Al MONDE GAS 


FRITAS ROM MOI 110 


12/01/04 


5 


CARNI AGS ADA 


A I'OK rnr.ili .,'. 


18/02/84 


'■ 


COELHO 


A IARDINFIRA 


07/09/83 


5 


FRANGO 


FRirO COM MOLHO 


32/13/0 l 


A 


COSTELETAS 


DF PORr.o GREI HADAS 


15/01/84 


A 


1 OK 1 A 


PAI.M110 1. CAMARAO 


12/03/84 


7 


HOI 101 -l"l OR 


All GRATIN 


13/0?/fl4 


7 


PIIDIM 


OF 11 AN AN A 


10/02/04 


GAVE 1 ft 


1 : t GAVI : 1 A 


J' : 3 GAVF1A :i : C 


GAVFTA 4 : 1 


GAVFTA 


S : 1 GAVETA 


A : 8 GAVETA 7 ■ '■ 





10 '***** X«**XXX XXX* X*X*KXX»X**XXXKX**KX ******* XXX**K« 

15 '* CONTROI E DE PRODUTOS CONGELADOS - FRI * 
20 '* MARCELO RENATO RODRIGUES - SAO PAULO JULHO/83 * 

25 '* » « » X "« »*« X XXXKMXXN X X XXX XXX XX IXXX* XXXXXXXX* -XXXXX*** 

343 CI EAR 1 0000 = 0] MN0*< 300 >,TE*( 300), 0(7 >:DEFINTI-N:KW=Q 

35 D7.=P£EK (16923) + 100: MM=PEEK(. 16924) + 100 :AZ=PEEK( 16922 ):DA*=RIGH 

T*(GTR*<D7.),2>+''/''-iRIGHI*(STR*(MM>,2>+"/"+RTGHT*(STR%(A7.>,2>:G0T 

045 

4U A*=J.NKEY*: IFA*="" THENG0T040 ELSEAZ^ASC( A* ) : RETURN 

45 UP*=STRING*(62,l31):Din=STRING*(62,i76>:SD*=CHR*(i9l> 

50 0PEN"R", 1 /'FREEZER/OAT", 43 

55 FIELD 1, 14 AS N* , 20 AS E*. 1 AS T*, 8 AS SI 

60 N=L0F ( 1 ) : I FN < XTTHENF OR 1 --- 1 TON = GET 1,11 NO! ( 1 ) =LEFT S ( N* , 1 4 > +STR* ( 

I > : IE* ( I > =T1+N01 ( I ) : NEXTI : CMD"0" , N , NO* < 1 ) : CMD"0" , N , TE* ( 1 > 

65 CLS:G0SUB545 :G0SIIB570 3CZ=1 SPX«81 6:T7.= 1 :G0SUB620 :0P7.=VAL 

(US) 

70 IF0P%(10R0P/O6THENG0SUH620 :0PZ=VAL (U* ) :G0T07O 

75 IFOP7>1ANDOP%<6ANDN=OTHENGOSUB85 :G0SUB620 :0PZ=VAL<U<6) :(30 

T070 

BO 0N0PZGOT01O5 ,195 ,300 ,365 ,445 ,540 

85 PRINT3813," " ; :PR IN T3B9S, "NAO HA REGISTRO - TENTE DE NOVO"; 

90 G0SUB95 :G0SUB10O . I RETURN 

95 F0RNN=1T0400:NEXTNNSRETURN 

100 PRINTS1097,STR)NGT.(61,32> ; :RETURN 

105 CLS:G0SUB545 :PRINTaG3, STRINGS (24 ,42) ; :PRINT3147 , "MCADASTRA 

R PRODUTOS*"; 

110 PRINTa21l,STRINGl(24,42);:PRINT"" ; :FORJ=lT0N:IFLEFTS(N05(J), 

i)=CHRK191)THENG0T0175 ELSENEXTJ=N=N+1 :RG=N: JT=N: J=N 

115 PRINra328,"N0ME ======>"; 

120 PRINT34S6,"0ESCRICA0 =>",- 
125 PR INTSSSI, "GAVETA ====>". 

130 PRINT3712,"DATA ======)", 

135 P7.=341:CX = ?:TZ=14:G0SUB620 :N0I=U1 

140 TZ=20 = PZ=469:G0SUB620 :EN!l=US 

145 TZ=l:P7.=597:G0SUB620 :TES=Wt 

150 TZ=8:PZ=725sG0SUB620 BSAS=U5 

155 LSETN*=N0$:LSETES=ENI:LSETTS=TE*:|..SETS!=SA5 

160 PUT1,RG:N04(J)=LEFT5(NOS+STRING$(14," ") , 14 )+STRS( RG) :TE5(JT 

>=TET.>N0T,(J> 

165 PRINTa897,">>QUER CONTINUAR (S ou N ) ?" ■ :G0SUB40 s IFAZ=83TH 

ENG0T0105 

170 XZ=N I CMD"0" , X7. , HOI ( 1 ) = f;MI)"0" , N , TES ( 1 ) i G0T065 

175 RG=VAL(RIGHT5(N0'i(J) ,LEN(N0%( J) )-14) > 

1B0 F0RJT=lT0N!lFVAL(RTGHIt(TE4(JT),LEN<TE5(JT>)-15))=RGTHEN00TO 

115 ELSENEXTJT:JT=J:G0T0115 

185 CLS:G0SUB545 =PRlNTa83, STRING* (22, 42) ; :PRINTai47, "xCONSULTA 

R CADASTR0»";:PRINTa211 , STR ING5 ( 22, 42)„- ^RETURN 

190 PRINTa337,"ESC0LJHA M000 DE PESQUISA: "; :PR INT3472, "( 1 ) > COD 

[G0";:PRINT3600,"(2>> NOME"; :PR INT3724 , "SUA OPCAO>>> <(<",:C 

Z=l:T7.=l:P/(=738:G0SUB620 :0PX=VAL(U«) : IF0P%< 10R0PZ >2THEH190 EL 

SERETURN 

195 G0SUB185 :G0SIIB1V0 : ONOPZGOT0255 ,275 

200 PR INT3450, "DADOS: "; 

205 PRINT3586,"N0ME ======> " ;Nft; :PR INT3650 , "DESCRICAO => ";E% ; : 

PRINT37I4, "GAVETA ====> "- T«; :PRINT3770, "DATA ======> ",S*»:RETU 

RN 

210 I'R)NT3394,"C0DIG0>";:P7.=404:TZ=3:C7.= 1SG0SUB620 : I=VAl.(U5) : I 

FK10RI>NTHEN60SUB85 :GOT0210 

215 GET1,I:IFLEFT*<N*,1 )=CHR1< 191 )THENG0SUBH5 :G0T0210 

220 RETURN 

225 PRINTa394,"N0ME>",-:PZ=4O2:T7. = 14:CZ=2:GOSUH62O :N0S=W* 

230 N0%=LEFT*<N0i,14) 

235 F0RJ=IZT0N:Y4=LEr-Ti(NO1i(.J),14):Y'S-|.EFTt(YS,LEN(NO*)) 

240 IKN05=YirHENI=VAL(RTGHT'KN0'6<J),I.EN(NOS(.l))-14)):GETl,I:QOTO 

250 

245 NFXT.IsGOGUBBH :I<M=1 

250 RETURN 

255 G0SUB105 :rz=l 

260 B08U8210 

265 TFKU=lTHENKW=0:G0Simn5 :G0T065 ELSEG0SUB200 

270 PRINT3B97,">>QUER CONTINUAR ( S ou N>?"; HiOSUB40 :IFA7.=7BTH 

ENI30T065 ELSEG0T0255 

275 G0SUII1B5 : IZ=1 

280 G0SUB225 

285 tFI(W=--lTHENKU=0:00SllBfl5 :G0T065 ELSEG0SUB20O 

290 PRINT3897,">>ai)ER CONTINUAR (S ou N)?"; :G0SUB40 :IFA7.=78TII 

ENG0T065 l:.LGEI7=.H 1 :G0SUB235 :G0T02B5 

295 CLS:G0SUB545 :PR INT3B7 , STR INGK 15 , 42 ) ; :PR INT3151 , "*EXCLIJIR 

DAD0Sx" ; :PRINra215,STRINGl( 15,42); [RETURN 

300 G0SUB295 : IZ-1 :GOfiUD190 :X7Z=0PZ 

305 0NX7%G0I0310 ,3 15 

310 G0SUB295 :G0SII8210 : IFKU=1THFNKU---(|:(>0 T065 ELSEG0SUB20O 

:G()T032t) 

315 G0SUB295 :G0SIJB225 : IFKM=1.THENI(U=0:G0T065 ELSEG0SUH200 

M2I1 PRINTa917,"EXCLUIR (S ou N)?"; I GOSUB40 : IFA7.( >83THENG0T065 

ELSEG0SIII1325 :G0T0345 
325 F0R.I=iT0N:K.I=VAL(RIGHT1.(NO4(.l),LEN<N0S(J))-14)) 
330 IFIOK.JTHENNEXTJ:J=I 

335 F0R.ir = lT0N:ll'VAL(RlGHT1.(TT1.<J1),l EN< TET>( JT > ) -15 > > ( > ITHENNEXT 
JT:JT=I 



340 RETURN 

345 LSETN5=nHR 1(191 > :LSETE%="":|.SETT1)=SI>1.:I GCTS1="":I'UT I ,1 

350 NOI ( .1 ) =SD$+8TRIN6« ( 13, " " ) +STR* < I > I TE« < JT ) «SD4+NM < . I ) :CMD"0" 

, N , NO* < 1 ) : CMD"0" , N , TES ( 1 ) 

355 G0SUB100 :l'RlNTa097,"QIIER CONTINUAR EXCI.UINDO (S ou N)?";:li 

0SUB40 :IFA7.( >B3THEN00T065 ELSEG0T0305 

360 CL8SG0SUB545 :PRINT3H7,STR1 NG*( 1 5,42) , :PRINT31.5i ,"* ALTER Al( 

DADOS*"; :PRINTa215 r STRING*( 15,42) \ :RFT1IRN 

365 G0SUB360 MM IBOSUBl 90 IONOPXSOT0380 ,385 

37(1 PRINT3326,"FACA SUA OPCAO POR UMA DAS ALTERMATIVAS ABAIXO:"., 

:PRINTfi)455," A SEREM AL TERADOS:" ; «PRINT3B82,"< 1 )"; :I'R INTiJ64/i, "(2 

)";.-PRINT3710 f "(3)";:PR.lNT3774,"(4)".:PRINI39UI3,"l INHA A, SER ALT 

ERAOA? >>> ((("; 

375 CZ=l:|>Z=934:TZ=l:G0Slin620 :KK=VAL(U«> : 1 TKK ( 1 ORKK >4TIIKN130T03 

70 ELSFRFTURN 

380 G0SUB360 :G0SIIB210 :G0T0390 

385 G0SUB360 :G0SUB225 

390 GOSUB360 : IFKU=1THENKW=0:G0T(>440 ELSEG0SUB20O 

395 G0SUB370 :C7.=2:0NKKG0SIIB4O0 ,410 ,420 ,430 :G0T044IT 

400 PZ=599:CZ=2:TZ=14:G0SUH620 :N0$=U5 

405 LSETNS=N04 : 008UB32S : NO* ( J ) =LEFTl ( N'i , 1 4 > +STR* ( I ) : TL* ( JT > =T4 

+N01 ( J ) I CMD"0" , N , NO* ( 1 ) : CMD"0" , N , TE* ( 1 ) : PIIT1 , 1 7. : RETURN 

410 Tj:=20:PX=663:GOSUB620 »EN5--US 

415 LSETE*=EN*:PUT1,I%:RETURN 

420 T%=l:PZ=727:G0SUB620 :TE5=U5 

425 LSETT*=TE*:G08UB325 ITES(JT) =TE* + N0*( .J ) :CMD"0" ,N, TL-*( 1 > :|>UT 

1,I%:RETURN 

430 TZ=0:P7.=791:G0SUB620 :SA*=U* 

435 LSETS5=SA*:PUT1,IZ:RETURN 

440 G0SUB10O :PRINTa897,">QUER CONTINUAR (8 ou H>?"; :G0SUB40 

:IFAZ=7BTHENG0T065 ELSEG0T0365 

445 STZ=PEEI((14312)AND240 

450 IFST7.O4BTHENPRINT3897,">>IMPRESS0RA NAO DISI'ONTVEL"; :(50SUB9 

5 :60T065 

455 CLS:G0SUB545 :PH1NT3897,"> > IMPRIMINDO" ; 

460 LPRINTTAB(6)"LISTAGEM DE PRODUTOS CONGELADOS EMITIDA EM ";DA 

*:LPRINT 

465 LPR INTTAB ( 5 ) "PRODUTO" ; TAB ( 23 ) "DESCR ICAO" ; T AH ( 41 ) "GAVE T A" ; TAB 

( 50 ) "DATA" ; TAB ( SB ) "REG" s LPR INT 

470 FORI=1TON 

475 IFLEFT*(N05(I),1)=CHR*(191)THENG()T0495 

480 K=VAL(RIGHT4(N0*< I ) ,LEN(N0*( I ) )-14 ) > :GETi,K 

485 LPRINTCHR*(255);TAB(3)N*;TAB(19>E*;TAB(43)T*;TABC1B)fi*;:LPRI 

NT USING"IMIHIIM";K; :LPR INTTAB (63 )CHR*( 255) 

490 NEXTI 

495 LPRINT:LPRINT:LPRINTTAB(0)"GAVETA";TAB(ll>"PR0DUTO";TAB<27>" 

DESCRICAO"; TAB (48)"DATA":F0R 1=1 T07:G( I >=0!NEXT:LPRINT 

500 FOR 1 = 1 TON 

505 IFLEFTK TE*( I ) , 1 )=CHR*( 191 )THEN520 

510 K=VAI. (RIGHT*(TE*(I) , LEN( TE*( I ) ) -15 ) >:GET1,K 

515 LPRINTTAB(2>TS;TAB(8>N*;TAB(24>E!;TA8<46>SS:T%-=VAI (T*):(i(T7.) 

=G(TZ)+1 

520 NEXTI 

525 F0RI=1T05:LPRINT:LPRINTTAB<0)STRING4(6,".");TAB(B)STR1NG*(14 

,".");STRINGS(20,".")-TAB(46>STRING*(8,"."):NEXT:LPRINT 

530 F0RI=1T07:LPRINT"GAVETA"; I ,":";G( I > , sNKX I 

535 LPRINT:LPRINT:G0T065 

540 CL0SE:EN0 

545 PRINT3961,DW*;:PRINT81,UP*- 

550 F0RIC=OT0960STEP64:PRINTaiC,SD4;:NEXTIC 

555 F0RIC=959T063STEP-64:PRINTaiC,SD*;:NEXTIC: 

560 FORIC=126T0127:SET(IC,47)!NEXTIC:FORJ=45T047:SET(127,J):SFT( 

126,J):NEXTJ 

565 RETURN 

570 PRINTaB3,STRINfi*(26,42);:PRINiai47 r "XCADASTR0 DE CONGELADO 

S*" ; 

575 PRINT3211 r STRINGS (26,42) f 

580 PRINia33B,"(l) > CADASTRAR PRODUTOS"; 

585 PRINT3384+18,"(2) ) CONSULTAR CADASTRO"; 

590 PRINT3448+1B,"(3) > EXCLUIR DADOS"; 

595 PR).NTa512+lB,"(4) > ALTERAR DADOS"; 

600 PRINTa576+lB,"(5) > LISTAGEM"? 

605 PRINT3640+1B,"(6> > FIM DO PROCESSAMENTO"; 

610 PRINT3772,">>>0PTE POR UMA OAS ALTERNATIVAS ACIMA >)> (( 

<": 

615 RETURN 

620 U*="":UZ=0:CR5=CHR*(131>:PS*="." 

625 PR IN T3PZ+W7. , STRING* ( TX-UX ,"."); 

630 PRINT3P7.+UZ,CR*;:F0RY--=1T025:Y4-INI(EY*:IFY*( >""THEN635 ELSEN 

EXTY:PRINT3P7.+U%,PS*;:FORY=1T025:YS=INKEY*:IFYS(>""THEN635 ELSE 

NEXTY:G0T0630 

635 IFY4=CHR*(24)THEN620 

640 IFY*=CHR*(13)THENPRINTaPZ+UZ,flTRINO*(T7.-U7.," ");:RETURN 

645 IFY*=r.HR*(B>ANDW7.>0THENPRINT3P7.'UZ,CHR*(B);:W7.=WZ-l:U4=LEFT!b 

(U*.WZ):CR*=CHR*(131):PS*=".":G0T0625 

650 IFWZ=TZTHEN630 

655 IFC7.=1AHD(Y*("0"0RY*>"9")THEN63Q 

660 IFCZ=2AND(Y*(" "ORY* >"?" ) THEN630 

665 PRINTaPX+UX,Yi-:U5=U*+YS!UZ=UZ+l:IFWZ=TXTHENCR*= I'S*=" ": 

G0T0630 ELSE625 
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Figura 2 



PARTICIPE 
COM SUA 
OPINIAO 



MICRO SISTEMAS 6 feita para voce. Escreva-nos contando suas 

experiencias com seu micro, qual sua area de interesse, o que voce quer 

ver publicado e o que voce acha de MS. 

E lembre-se: todo leitor que nos escreve concorre automaticamente a uma 

assinatura anual de MICRO SISTEMAS. 

Mande logo sua opinio para a REDACAO de MICRO SISTEMAS: 

Rio de Janeiro - Av. Presidente Wilson, 1 65/grupo 1 21 0, RJ, CEP 20030 

S3o Paulo - R. Oliveira Dias, 153, Jardim Paulista, SP, CEP 01433 



% 



54 



MICRO SISTEMAS, abril/85 



Sinclair Sinclair Sinclair sine 



Controle de conta bancaria 



Silvio Elsio Donato 



Este programa, para os micros da 
linha Sinclair ou compativeis com no 
mi'nimo 16 Kb, destina-se ao controle 
pessoal de conta-corrente, arquivando 
lan5amentos e depois apresentando-os 
em forma de extratos. 

programa possui quatro opcoes: 
lancamentos - onde o programa pede os 
dados necessarios para a formaca"o de 
extratos; extratos — que sab exibidos 
de acordo com os lan?amentos; iniciali- 
zacao — que dimensiona o arquivo, de- 
vendo ser utilizada uma so vez e grava- 
cao - que transfere para a fita todos os 
lancamentos para um posterior acesso 
pela opcao 2. 

A opera?a"o do programa e' muito 
simples. Logo que carregado, ele ja exi- 
be as opcoes descritas acima. Se o pro- 
grama vai ser utilizado pela primeira 
vez, deve-se pressionar a tecla 3, que 
equivale a funcao de initio do arquivo. 
Note que, por medida de seguranca, o 
programa pede que esta opcao seja con- 
firmada. Isto se deve ao fato de que 
uma vez ativada a funcSb de iniciali- 
zaca"o, todas as variaveis, se ja existen- 
tes e preenchidas. sao zeradas e redi- 
mensionadas, perdendo-se, entao, todo 
o arquivo. O mesmo acontece com a te- 
cla RUN. Portanto, so utilize estas duas 
teclas para o caso de se estar usando o 
programa pela primeira vez. 

Se o programa ja possui lan?amentos 
quando carregado, e voce deseja incluir 
mais lancamentos basta optar por 1 
que ele localiza o ultimo lancamento 
e fica pronto para receber outro em se- 
guida. 

A opcao 1 pede dados na seguinte 
ordem: dia, mes, historico e valor. Ob- 
serve que 6 exatamente o essencial para 
se ter um bom controle da conta-corren- 
te. Para cada hist6rico foram reserva- 
dos 15 caracteres, de modo que se pos- 
sa especificar a origem do de'bito ou cre- 
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dito. Quando se entra com o valor, sem 
os centavos, o programa pergunta se 6 
de'bito (D) ou crddito (C). Respondida 
esta pergunta, ele imprime na tela o va- 
lor, com sinal negativo caso seja um de'- 
bito. Em seguida surge a mensagem de 
confirmacao para que o lancamento 
seja conferido. Em caso positivo, o sal- 
do e atualizado. Se nao confirmado, o 
lancamento 6 apagado, as variaveis por 
ele ocupadas sao zeradas e novamente 
surge a mensagem pedindo para entrar 
com o dia, mes e assim por diante. 

Cada vez que o lancamento e confir- 
mado e o saldo e corrigido de acordo 
com ele, o programa pede automatica- 
mente outro lancamento atrave's da per- 
gunta: "Dia?". Para poder sair da op- 
ca"o lancamentos, basta responder "0", 
e entao, o programa volta ao menu ini- 
cial. 

A opcao 2 (extratos) pede pelo nu- 
mero do extra to desejado. Esse niimero 
vai de 1 a 8 no programa original, mas 
o arquivo tern capacidade para 96 lan- 
camentos. Pore'm, nada impede que esta 
capacidade seja aumentada, fazendo-se 
necessario observar apenas a memoria 
disponfvel e a velocidade de acesso aos 
dados de um arquivo maior. Logicamen- 
te, para esse fim deve-se alterar a estru- 
tura original do programa. 

Uma vez fornecido o extrato dese- 
jado, surge a mensagem "Outro extra- 
to (S/N)?". Em caso de resposta positi- 
va, o programa pede o niimero do extra- 
to, caso contrdrio. novamente aparece 
o menu inicial. Cada extrato comporta 
12 lancamentos. 

Depois de feitos todos os lancamen- 
tos desejados, basta pressionar a tecla 
4, gravaca"o, e transferir, desse modo, o 
programa e os dados para uma fita cas- 
sete. 

Por ocasiao de consulta posterior, ou 
seja, do carregamento do programa com 



dados ja arquivados, nao e necessario 
pressionar a tecla RUN, pois o programa 
yi sai rodando. 

Este programa possui otima formata- 
cao de tela e e esteticamente bem apre- 
sentado. Entretanto, deve-se ter muita 
atencao ao digitd-lo, pois certas linhas 
possuem f6rmulas variaveis usadas nas 
coordenadas de impressao de dados na 
tela. 



Silvio Elsio Donato 6 formado em desenho 
arquitetonico e trabalha, no momento, como 
bancario. 



5 LET B$=" _ 
10 PRINT AT 2,0; 



15 PRINT AT 19,0; ", 



B$ 

"CONTR BRNCRRI 



"1 - LfiNCRMENT 
"2 - EXTRRTOS' 



£0 GOSUB 5000 

25 PRINT RT 1,0 

30 PRINT RT 1,8 
R" 

35 PRINT RT 7,8 
OS" 

40 PRINT RT 9,3 

4-5 PRINT RT 11,3; "3 - INICIRLI 
ZRCRO" 

50 PRINT RT 13,8; "'i - GRfiUfiCRO 

55 PRINT RT 21.0:5-$ 

60 LET 0$=INKEY$ 

65 IF 0$C"1" OR 0*>"4" THEN GO 
TO 60 

70 LET 0=URL 0$ 

75 GOTO 0*1000 
1000 GOSUB 5000 
1005 PRINT RT 1,0; BS 
1010 PRINT RT 1,8; "LRNCRMENTO" 
1015 LET S=0 

1020 PRINT RT 3,0; "DRTfl";RT 3,11 
; "HIST. "; RT 3,23; "DEB/CRED" 
1025 GOSUB 6000 
1030 FOR I=C TO 96 

1035 IF 1=13 OR 1=25 OR 1=37 OR" 
1=4-9 OR 1 = 61 OR 1=73 OR 1=85 THE 
N GOSUB 7000 
1040 PRINT RT 21,0; B$ 
1045 PRINT RT 21.0; "DIR ? 




/«■•-:» 



... que as decisoes sao rapidas e os segundos 

pretiosos. 
Seu computador nab pode parar por falta de 
For mularios, Supnmentos e Acessonos, 
Voce pretisa de um atendimento seguro, de 
quern conftece o assunto, Por isso, estamos 
lancando a masscompletd rede de lops de Informato do pais: o COMPUTER 5H0PPING MOORE, 
\facetera Atendimento I mediate, Pronta Entrega, Otima Variedade e Pre^o Justo do que 

preasar e na quantidade desejada, 

Anote os rxM« enderecos que vao solucwrwr suas necessidades emergerKiais. 

As Lojasdc Informatkado Computer Shopping Moore sao ageis, efioentesegarantidaspelo 

name Moore 
E faiam a mesma Imguagem que voce, 



COMPUTER 

SHOPPING 

MOORE 

Beto hot i*one • Id; (031) 3+4.4933 • Biumenau ' 

fel ; {0473) 23.0333 • Campinas ■ lei (0192) 35.5044 

•Curutoa- TeL (041)554.5861 •NUw&* 

fel u (099) 934,0807 •PcwioAfegre 

let, $512) 34 6344 • ftecife - **.: (081) 221 .0352 

• foode Janeiro -Mj (051)590.0144 
■ Satodor - fei. : (071) 244.440!? » Sao fouto 
let.: 875.3316 

* Entr epostos 



MICRO SISTEMAS, abril/85 



formularios • diskettes • discos » fi us magneto • fins lmpre»of« * mdveis • fngnentadoras • etiquctu « equip, de segurwea 




CONTROLE CONTA 8ANCABIA 



l&sa inff-ur z •!■ 

1055 IP & til B OP [ I.' -2; then 5 

oto lose 

1060 IF Dtl'=0 T^EN &03UB 50SC 

1065 IF C I : =0 THEM COTQ S 

lQ^O PRINT RT I*i.,O.CH.D 

1375 PRINT AT I*L 2."/" 

1060 PRINT AT £1,0 "H.ES- " 

1055 II4PU1 M ? : 

1090 IF hill O OR HtJf 1£ Th=, 

GOTO 13S5 

1035 PRINT RT J#i. . 3 , ' ' 

1100 -RINT ftT 

1105 INPUT HfllJ. 

I»RIMT AT tfL fr.Hft til 
1115 PRINT AT £10 '.flLGR 
UJC INCUT U 1 

ilS5 PRINT RT £1,0. 'DEB ID i I 
ED '.C. ' 

113C S.CT 0**INKE. & 
1135 I" 04= E THEM i-ET 
i - i. - i i 

11*0 IF 0S= ': T"HEH SOTO 1155 
11±S IF 0*= '•: THEN BOTO 115? 
LiSC :- o« : 3R 01 Tr\E\ 

GOTO 3 i : o 
1155 let -j=5tc s g : 

1158 LET 2«L£N Zs 

1165 PRINT «T :-_ Il-JKMIXI 

1I~C -PINT iT 2 1 |3 -lONFTPMft ; 

. 

• i 

1180 IF 05=-5 THEN GOTO 1S05 

1135 IF 0*= N TriE'l GOTO USE 

l I :-o IF OS S OP 01 ' -N TH£i« 

C-OTO 117S 

1195 PftJWf ~T I*u.O,Ei 

_=^0 OTTO ie*o 

1205 LET 5»5*ViI.' 

1210 LET ruiTp* 5 

IS18 LCT ImLEN "I 

i££0 PPINT AT if 19 

1S*B POINT AT i«,29-r 9 
1330 NEXT I 

1235 sort 

2300 SOSufi 5000 

&£tS LET E =i3 

2020 PPIMT RT 21.0 =5 

2015 FfMTJT h- I.0.B* 

2020 POINT ftT 1,8, "E-TffflT,;,i ■ 



2025 PRINT RT J I . t-ftTR'-.AT 
HIST," Pit 3 B3;"0EB/CRED" 

20:0 PRINT RT 21,0- -NR DO EfcTRRT 
"!" 

2«f INPUT E 

20iO IP E'l OR E r THEN BOTO SOS 

5 

2*i5 tRirtT - 21.0.BS 

2050 -PINT St 21,0 'E.-RRTO NC ' 

. £ 

295S i.ET L*s i iE-l» «12J * l-U i *4 

2060 -" . = = : E- _ , -1£ -i 

205E = 0= j=l -; .-1 

LET i *s*u i J i 
2C _ = NEXT y 
2080 FOC I=>. TO X + ll 
20S5 = RINT BT I'L.D.filJ 
2090 IF Dili=0 THEN BOTD 5000 
209S PRINT -- :-_ g Rj i.. ; 

,H«I, RT I*t F n»«I> 

2100 LET :§=3T0t ytl 
31BB LET 2>|_EN Zl 
2110 -PINT AT l«|_ 
2115 _ET 3>b3*V(I! 
2120 i_ET Zt«ETRB ! 
2125 _ET I=j_E-'j 2% 
2130 PRINT HT Ifl IS 

8138 PRINT AT is u ShU : - 

ei«a srint rt xi ea-z s 

2145 NE-- I 

2150 PRINT AT 21 t! 

£155 PRINT AT 21 .0 'OUTRO EXTPRT 

IS/HI " ' 

S2S0 l_£T : ==:-.► E, s 
filSS IF 0S= 5 tmE'v -SOTO 2000 
2170 IF 0*= N TriE*+ -SOTO 5 
2i~5 IF 05 S OP 01 } 'JJ' THEN 

GOTO aiee 

30013 PRINT CT ti,i icnFIPMR 

CIRL.IZRCSO Ifl/N) ~ 

3005 LET 0* = I»lK,Cri 

3010 IF 05= =. THE 

3015 JF Oi= N THEN GOTO 3025 

3020 IF 01 "i OF D*<>"N" THEN 

GOTO 3005 

3025 PRINT AT 11.0; B* 

3030 GOTO 5 

3035 S04U6 5000 

3040 PRINT AT J.s, "DIMEN5I0NRHD0 



RROUIVD" 
3045 PflfSE 60 
3050 OIH OlSflt 
3055 DIM W«96> 
3060 OIK H*i96, 15) 
3065 DIM U<96i 
3070 LET ;=C 
J07S C-OcUE 5000 
30 30 GOTO 5 
4000 SAVE "BRMCO" 
A0Q5 GOTO 5 
5OO0 FOR B=3 TO IS 
5005 PRINT AT fl,0.BS 
5010 NEXT B 
5015 RETURN 
rC30 FOR I«l TO 96 
6005 IP C-lIlnO THEN GOTO B038 
6010 i_ET 5a£+ViIi 
6015 NEXT I 
BO30 LET 2f*5TR$ S 
6025 LfT IbLEN =5 
6030 PS INT AT 16,11,- 5 ALOO - ' 
6035 PAINT RT ia,29-Z 5 
6040 LET C=3 

6045 IP C=l THEN i.ET L«4 
6050 IP Cal THEN RETURN 
6085 LET ■ =lrjT ii, isi 

_ ET Ls» MX V • ( -1 J tlflj ♦* 
6C65 LET 0=(K*12l+l 
6O70 FQF H =0 TO 0~1 
6075 LET Z»b5TR* ■ t • 
6030 LET Z»L£N =s 

5065 PRIfiT RT **l . . : | . RT ^+L « 
g ftT KtL,3;KI» . RT f +l 6 n» i 

K' .AT h-.*L 21-Z 
6090 N£y,T K 
6095 RETURN 
'000 POP E ^5 _ : ii 
7085 PRINT hT r D-l 
7010 HEKT B 
"0;- PRINT RT 21.0, St 
7020 lET l=l-12 
7025 PETURH 

3000 PRINT RT I*|. O.Bt 
3005 GOTO 2150 



Sinclair Sinclair Sinclair sine 



Contrtile de coma Ifamrdrta 
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Copysoft 



Sergio Rama/ho Rezende 



A finalidade deste pequeno utilita- 
rio e produzir copia de seguranc^a de 
qualquer programa em linguagem de ma- 
quina que se encontre protegido. Po- 
de-se dizer que valem os mesmos comen- 
tarios empregados para o programa 
Copsys, publicado no numero 29 de MS, 
exceto que aqucle era para a linha TRS- 
80 e este e para Sinclair. Vamos a digi- 
tacao: 



- Carre gue da fita o Micro Bug. 

- De dentro do Micro Bug crie com 
o comando E uma linha REM 
com 123 bytes (E 0, S 123 ,x). 

- Digite M 4082 e entre com o bloco 
Assembler, 

- Retorne ao BASIC (comando B). 

- Digite a listagem BASIC. 

- Prepare-se para gravar e digite 
RUN 60. 

OBS.: — Para gravar em high speed 
mude a linha 60 para 60 RAND 
USR 8405. Para utilizacao siga estas 
instrucoes: 
-digite POKE 16389, 127; 

- digite NEW; 

- carregue o Copysoft da fita; 

- apos rodar o programa digite qual- 
quer tecla que ele mesmo se encar- 
regara de posicionar a rotina prin- 
cipal (que ocupa apenas 81 bytes) 
acima da RAMTOP, que ele mes- 
mo cria ; 

- digite RAND USR 32687; 

- para ler urn programa da fita digi- 
te L. Antes, pore'm, digite 1 ou 2, 
para determinar se o programa esta 
em velocidade normal (isto se o 
programa que voce quer ler foi 
gravado com o comando SAVE) 
ou high speed, respectivamente; 

- terminada a leitura, a tela perma- 
necera escura a espera de um co- 
mando. Entao, para tirarmos uma 
copia do programa que se encon- 
tra na mem6ria deve-se digitar 1 
ou 2, visando determinar a veloci- 



dade de gravaca"o. Se nao for digi- 
tado um dos dois comandos o sis- 
tema assumira a mesma velocidade 
de leitura. Prepare o gravador e 
digite G. Terminada a gravacao, o 
sistema aguardara um comando, 
que poderd ser L para leitura e 
conseqiiente gravaeffo de outro 
programa, G para gravar outra vez 
o programa, 1 ou 2 para mudar a 
velocidade de leitura/gravacao, R 
para dar um RESET geral (o mes- 
mo que RAND USR 0). 

OBSERVACOES IMPORT ANTES 

Apos ser mandado para o topo da 
RAM o programa ocupara apenas 81 by- 
tes, o que significa que programas com 
ate 16303 bytes, aproximadamente, po- 
derao ser copiados com esse sistema. 

A tecla BREAK nao deve ser utiliza- 
da se houver algum programa na memo- 
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Bloco Assembler 



10|JP='INT 


HT 


.- O. 'COPYSOFT 


til 


3R0 SISTEMflS 


1904 " 




20 PRINT 


RT 


5.0; "CQMSNDiOS 


" , , 


R - RESET' 


,"L - LEITURf 


L- - 






'.'tLOCIDRDE " . 
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NORMHL' . 
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- HIGH SPEED" 




30 PRINT 


RT 


20 .0. "PfiRR RuDRP 


DIOITE" . "PhND 


USR 32687 . " 




40 IF XNReV*= rt " THEN BOTO 


4.0 


50 PHND USR 


15537 




60 SflUE 


COPr" 




7© RUN 









Listagem BASIC 



ria, pois causaria a perda do controle do 
sistema em alguns casos. 

Copysoft foi desenvolvido em um 
TK 85 dotado de high speed. Para aque- 
les que possuem essa funcao gravada em 
fita pode ser feita a seguinte modifica- 
cao antes da gravacao inicial do Copy- 
soft: 

POKE 16614, GR - (INT (GR / 256) <■ 
256) 

POKE 16615, INT (GR / 256) 
POKE 16633, LT - (INT (LT / 25b) : 
256) 
POKE 16634, INT (LT / 256) 

onde: - GR e o endereco inicial da 
gravacao em high speed); 
— LT e o endereco inicial da 
leitura em high speed. 

A orientacao serve tambe'm para 
aqueles que possuem um CP-200 speed. 
No primeiro caso, o Copysoft pode ser 
colocado em qualquer outra parte da 
RAM, ja que ele nao tern nenhum JUMP 
absoluto nem CALL sobre si mesmo, 
Deve-se fazer apenas uma modificacao 
na rotina que o coloca na RAMTOP e 
que comeca no endereco 16537. Para 
aqueles que na"o possuem high speed, 
eis as instrucoes: 
POKE 16607,0 
POKE 16606,0 
POKE 16623,0 
POKE 16624,0 

Como orientacSb final, sugerimos 
que o interessado faca um teste do Co- 
pysoft com programas comerciais. Se al- 
go estiver obscuro, acreditamos que com 
a digitacao podera ser esclarecido, bem 
como a ide'ia do utilitario. 



Sdrgio Ramalho Resende tern 18 anos, con- 
cluiu em 1984 o Segundo Grau no Cole"gio 
Marista Dom Silve'rio, de Belo Horizon te, e se 
prepara para tentar o vestibular no IT A, onde 
pretende fazer Engenharia Eletrdnica. Possui 
um TK 85 ha" um ano, 6 autodidata em ele- 
trdnica e computacio, dominando as lingua- 
gens BASIC e Assembler. 
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Sinclair Sinclair Sinclair sine 



Arquivo-agenda 



March Fontenelle Vianna 



O programa tern como finalidade o 
manuseio pratico de um arquivo-agenda 
para nome, endere^o, CEP, bairro, cida- 
de, Estado e telefone de pessoas fisicas 
ou juridicas. Desenvolvido segundo a ca- 
racteristica modular, na qual as instru- 
90es que objetivam a mesma fun?5o for- 
mam rotinas altamente independentes, 
ele e, por isso, bastante flexivel a modi- 
ficacoes e possiveis amplia^oes. 

Quanto a sua operaca"o, podemos di- 
zer que e muito facil, em forma de did- 
logo, com menus orientando o usuano 
em todas as fases. Em micros com me- 
m6ria de 16 kb & possivel arquivar ate" 
105 registros. Naqueles que possuem 
memoria de 48 kb podem ser armaze- 
nados cerca de 400 . 

As rotinas principals do programa 
sa*o-. 

Entrada de dados - Permite a intro- 
ducSo dos varios registros utilizando a 
indicacao de delirnitacSo de campo e 
o efeito scroll em linguagem de m^qui- 
na. 

Alteraca"o de dados - Possibilita a 
alteracao ou correcSo de qualquer um 
dos registros nome, endere90, CEP, bair- 
ro, cidade, Estado e telefone. 

ExclusSo de dados - Elimina quais- 
quer registros, renumerando todos os 
outros de ordem superior ao cancelado. 

Select geral - £ uma rotina atrave"s 
da qual se acessa cada um dos registros 
do programa, digitando para isso a pri- 
meira letra do nome da pessoa preten- 
dida. micro apresentari no video, se- 
gundo a ordem do arquivo, os dados dos 
indivfduos cujos nomes se iniciam pela 
letra digjtada. Dentro desta rotina, a 
parte superior da tela apresenta um 
menu secundano indicando as fun^Ses: 

<S> Selefao— Digitando So micro 
procura no arquivo o prdximo registro 
que se inicia pela mesma letra digitada 
inicialmente, e assim sucessivamente. 

<M> Menu — Digitando M ele 
apresenta no video o menu principal. 

<F> Frente - Digitando F o micro 
mostra o registro subsequente ao sele- 
cionado anteriormente. 

<R> Retomo- Possui funcSo in- 
versa a de F. 



60 



<I> Inicio - Digitando / o micro 
apresenta na tela sempre o prime iro re- 
gistro em arquivo. 

Seleca"o de Nome - Seleciona no vi- 
deo o nome e seus dados complementa- 
res, bastando para isso digitar o" 
nome que se quer consultar, atentando 
para o delimitador de campo. Apresenta 
tambem na parte superior da tela o me- 
nu secundario descrito na rotina ante- 
rior. 

Selecao de telefone — Mesma funcSo 
da rotina anterior, porem digitando o 
telefone da pessoa a quern se quer con- 
sultar. 

Informa§5es — A rotina apresenta na 
tela: 

• capacidade maxima de registros - 
105; 

• numero de registros ocupados; 

• numero de registros vazios; 

• data da ultima gravacao. 
Gravacao arquivo — Atraves desta ro- 
tina faz-se a gravac^ do arquivo em 
fita cassete. 

Impressao Arquivo - Rotina na"o im- 
plementada no programa. 

A FORMA DE DIGIT A^AO 

Antes da digitaca"o da listagem te- 
mos que reservar uma drea de programa 
para introduzir o scroll em linguagem 
de maquina. Para isto, digite em 1 uma 
linha REM com 15 caracteres quaisquer. 
Em seguida o programa monitor (lis- 
tagem 2) e, atraves dele, o Bloco em 
Assembler (listagem 3). Finalizada a en- 
trada, elimine o programa monitor e ini- 
cie a digitaca"o do programa propriamen- 
te dito, a partir da linha 2. 

Ap6s ter entrado com a listagem do 
programa, para encerrar digite direta- 
mente sem a utilizaca"o de Linhas de pro- 
gramacao, sempre empregando a tecla 
NEW LINE (ENTER), as seguintes ins- 
trucOes: 

' DIM r-.$ (103, 23 > 
DIM LS ii05 3IJ 
Btf) Ml tlBS , ll< 
DIM N$ 1105(81 
LET U=0 
LET 0S=" 15, ll.B* 

Ap6s a introduca"o das instrucOes o 
programa estd completo, bastando agora 



grav2-lo em fita. De o comando GOTO 
3070, prepare a fita, ligue o gravador e 
aperte NEW LINE. Depois e so esperar 
o termino da grava9So (mais ou menos 
6,5 minutos) e pronto. O programa ja" 
pode ser utilizado, arquivando a sua 
agenda. 



Mircio Fontenelle Vianna 4 engenheiro ele- 
tricistn forma do pela IPUC — Universidade 
Catdlica de Minas Gerais. Trabalha na CBTU, 
na Gerencia dos Metros. Desenvolve softwa- 
re para micros da linha Sinclair. 



REM 
REM MAR 
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REM 

REM 

CLS 

PRINT 

PRINT 



ID FONTENELLE UIAnA 
RROUIUG AGENDA U2 
■JUL ©* 



■f 



MFV 



AROUIUO RGEND 



27 PRINT 

R U2 V ,.,,.->,, 

30 PRINT " <l>5Et.GERAL" . " ■:'» . 5E 
L .HOME" , " <3:-SEL. TELEFONE" , " <4.>EN 
TRR DADOS" ," <5 > ALTERA DADOS" . " <5 

>EXCLUI DADOS" ." .;7 >IMP . ARQUIUO" . 

" -:3>GRAUA AROUIUO"; " <S MNF0RMACO 
E5" 

31 PRINT at $$.i,Q;*'Aiimmmmi^mmam 

3£ IF INKEY* ="" THEN GOTO UAL 
"32" 

33 IF INKEYS<"1" OR INKEY* > "9" 
THEN GOTO UAL "32" 

34- LET WSsINH.EYS 

36 CLS 

40 GOTO UAL "40"+ (U*="l") *UAL 
"660"+ <U*="£" ) *URL "1260"+ CU*="3 
D )*URL "1460"+ 0,JS = "4") *UAL "16S" 
+(WS="5"i *UAL "1560"+ UJ*="6"> SUA 
L "2460"- iUS="7" I *UAL "34"+<WS=' 
S">*UAL "296>r'+ >U$ = "9" > *UAL "276 
0" 

199 STOP 

200 REM l=WH;l»ro=j 
210 CLS 

220 LET K=PI/PI 
IF K*rl,l> =' 



L "270" 
J0 GOTO 



THEN GOTO UH 



260 

270 



'05" 



URL 
CLS 

PRINT AT £1 ,0; "1. DIGITE N 
OME":TAB 2S ; " <" 

280 INPUT KICK] 

285 LET N=PI/PI 

290 GOSUB UAL "590" 

300 PRINT AT 21,0; KS(K) 

310 GOSUB URL "590" 

320 PRINT AT 21 , ; "2 . DIGITE E 
NDERECO" ;TRB 31; "<" 

330 INPUT LStKJ ' 

340 GOSUB UAL "590" 

35© PRINT AT 21,0; L5<K:' 

360 GOSUB UAL '590" 

370. PRINT RT £1 . : "3 . D IGITE CEP 
.BAIRRO.CID.EST. " ; TAB 31; "<" 

3SC INPUT M$«K) 

390 GOSUB VAL "590" 

400 PRINT AT 21,0;M$(K> 

410 GOSUB UAL "590" 

420 PRINT RT 21 . O ; "4-DIGITE O T 
ELEFONE" 

430 INPUT N$(K) 

44 GOSUB UAL "590" 

450 PRINT AT £1.0;N$<K) 

460 -LET. NI=','AL "7" 

470 GOSUB UAL "590" 

460 PRINT AT 21 . ; "CONFIR.MA PEG 



ISTR01 S N 

435 LET N=l 

420 GOTO vAl '490"+ !INKEYS = ' 5 | 
*UAL "10"+ :.INKEY$ = "N"i *UAL "40 

SOO GOSUB UAL "590" 

502 LET K=r;+i 

510 PRINT -AT 21.0; "NOVO REGISTR 
01 5/N" 

520 GOTO vAL • 520"+ i. INKEY$ = ' 3":' 
*UAL " 10 " * ( INKEY $ = " N " ) *UAL " 40 " 

53© CLS 

550 GOTO" UAL "270" 

560 LET y=K-l 

570 GOTO UAL 6" 

590 FOR 1=1 TO N 

600 PAND USR 15514 

610 NEXT I 

620 RETU RN 

700 REM QEBB 

705 PRINT "AGOARDE" 

710 LET K=K+1 

720 IF K>si05 THEN GOTO UAL u 75 
0" 



THEN GOTO yfl 



730 IP KS IK . 15 =• " 
L -'260" 

740 GOTO UAl '710" 

750 CLS 

750 PRINT "APGOIUO ESGOTADO" 

770 FOR 1=1 TO 100 

7S0 NEXT I 

790 GOTO VAL ^6 " 

902 CLS 

904 ^ET Y=PI-PI 

910 PRINT " t& ■ 5ELECAO" . " -:M>MENU 
" , " <F>FRENTE" . " <R>RETORNO" , " < I • I 
NICIO" 

220 PRINT " 



922 IF Y=l THEN GOTO UAL "1330" 

924 IF Y=2 THEN GOTO UAL " 1540 ' 

930 PRINT AT 11 , ; "DIGITE A PRI 
HE IRA LETRA DO NOME" 

940 INPUT 6 5 

950 LET K=PI-PI 

955 Ir LEN B$ > 1 THEM GOTO UAL " 
902" 

960 PRINT AT 5 .0. "AGUAPDE" 

970 LET K.=K + 1 

930 IF K$i.K.,1.i=" " OR K>=105 TH 
EN GOTO UAL "6" 

9 90 IF B$=K.S (n , 1) THEN GC T UAL 

"1010" 

10OO GOTO UAl "970" 

1010 PRINT AT 5 .0; " 

1020 PRINT AT 9,0;K;"<:-" 

1030 PRINT K$(KJ 

1040 PRINT L$(K) 

1050 PRINT M*IK) 

1060 PRINT N5<K> 

1070 IF INKEYS="" THEN GOTO UAL 

"1070" 

10S0 LET ',)5 = INKE/$ 

10S5 IF US<>"5" AND U$<>"M" AND 

U $ < ;• " F " AND U $ -; :> " R " AND U S •' > " I " 

THEN GOTO UAL "1070" 

10 90 PRINT AT 9.0; » 

1100 GOTO UAL "1100"- iiJ$ = "S") *UA 

L "145"- (U$="M") *UAL "1094'+'U5= 

"F")*UAL "10"+ (U$="R") *UAL "40"* 

«U!3 = "I""' *UAL "70" 

1110 LET K=K+1 

1120 IF KS(K,li=" " OR K>=105 TH 

EN LET K=K-1 

1130 GOTO UAL "1010" 

1140 LET K.=K-1 

1150 IF K=0 THEN LET K=l 

1160 GOTO UAL "1010" 

11S0 LET K=i 

1190 GOTO UAL " IDl©" 

130© REM LW3M!1j 

1305 CLS 

1310 LET Y=l 

1320 GOTO UAL "910" 

1330 PRINT AT 11,0; "DIGITE NOM 

E" . AT 21. 23; "<" 

1340 INPUT BS 

1350 PRINT AT 5 , ©, " AC-UARDE ' , AT 2 

1,26: " " ; AT £1,9; " " 

1360 LET K. = l 

1370 IF k.$::k,1;=" " OP K>=105 TH 

EN GOTO UAL "6" 

IS^S IF v=£ THEN GOTO UAL ' 1410" 

1330 IF B5=i<5<- TO LEI: 5s. 1 THE;- 

GOTO UAL "1010" 
139© LET K=K+1 
1400 GOTO UAl "1370" 
ld-10 IF B*=N*{K TO LEN BS) THEM 

GOTO ','AL "1010" 
1420 C-QTC' ;.'hl "1390' 
153© REM £Wk4^ 
151© CLS 
152© lET •/=£ 
1530 GOTO VAL '910" 

154© PRINT AT 11,0: "DIGITE TEi_ 
EFONE" . AT £1 9; "<■• 
1550 C-OTO_UAl -1340" 
160© REM 5151! 
1605 CLS 
1690 PRINT "DIGITE N* DE ORDEM 

DO NOME" 
1700 INPUT r,l 
1""05 PRINT f 1 

1710 IP ' 1 105 THEN GOTO '.'Al 15 
90 

1720 PCI:)T qLTEPAP NOME" 3 N" 
1730 INPUT US 

1-4© IF . J$ = - = ■■ THEM GOTO UAL "18 
34 



N" 

1"60 INPUT US 

177© IF U$="S THEN GOTO UAL 'IB 

30" 

17S0 PRINT "ALTERRR CEP. BAIRRO. C 

ID. EST.? S/N" 

179© INPUT US 

1800 IF U$="S" THEN GOTO UAL "19 

30" 

1810 PRINT hLTERPR FONE"- S.-N" 

1820 INPUT .J 5 

1830 IF J$="5' THEN GOTO UAL "19 

30" 

1332 GOTO UAL "6" , 

1834 PRINT TAB 28;"<" 

1840 INPUT B$ 

1850 LET K5 (Kl: =B$ 

I860 GOSUB UAL "204©" 

1870 GOTO UAL "1750" 

1S30 PRINT TAB 31; " <" 

189© INPUT BS 

1900 LET LS fKl) =B$ 

1910 GOSUB UAL "2040" 

1920 GOTO UAL "I7S0" 

193© PRINT TAB 31; " < " 

194© INPUT BS 

195© LET MS IK1> =B$ 

1960 GOSUB UAL "2040" 

1970 GOTO UAL "1310" 

1930 PRINT TAB 9; " C" 

1990 INPUT BS 

2000 LET NS (Kl) =B$ 

2010 GOSUB UAL "2040" 

202© PRINT "CONFIPMA RLTERACAO- 

S/N" 

2030 GOTO UAL " 2030 " - ' INKEY $ = ' 5 " 

i *UAL "2024"- iINKEY$ = "N") *UAL "3 

40" 

2040 PRINT B5 

£065 RETU RN 

250© REM i^HR 

2510 CLS 

2540 crint "DIGITE N" DE ORDEM 

DO NOME" 
255© INPUT Kl 
256© PRINT Kl 

2562 PRINT "CONFIPMA EXCLUSA07 5 
/N" 

2564 GOTO UAL "2564" + ( INKEY$="S" 
) #UAL "2"--:iNKEY$ = "N") *UAL "£5rr 

£566 LET U=U-1 

£570 IF Kl>105 THEN GOTO UAL "25 

40" 

£57£ PRINT 'AGUARDE" 

£575 IF Kl=l©5 THEN GOTO UAL "26 

50" 

£5S0 LET KS '.Kl' =K$ tKl + l; 

£590 LET LS (Kl) =L$ (Kl+1) 

£60© LET MS (Kl) =M$ (Kl+1) 

£510 LET N S < K 1 ) =N $ ( K 1 + 1 ) 

£6£0 LET K1=K1+1 

£630 IF K$(K1,1)=" " THEN GOTO U 

AL "2560" 

£640 GOTO UAL "2575" 

265© LET KS(K1,1* =" " 

2560 CL5 

2570 GOTO UAL "B" 

£300 REM OJHH 

2810 CLS 

£82© PR INT AT 9,0;" CAPAC . MAX . DE 

REGISTROS" ; TAB £4, "105" 

2840 PRINT "REGISTROS OCUPADOS" 

TAB 24; U 

2S50 PRINT "REGISTROS UAZIOS'.TPi 

B 24; 105 -U 

285© PRINT "ULTIMA ENTRADA", TAB 

24; 0$ 

2370 IF INKEY 5="" THEN GOTO UAL 

"2370" 

288© GOTO UAL "6" 

so©© REM [ckblSB 

3010 CLS 

302© PRINT "ENTRE COM A DATA' 

3030 IN.PUT 5 

304© PRINT OS 

3O50 PRINT "TUDO OK? S/N" 

3060 GOTO UAL "3©60" + '. INKE'.'S = " 3" 

) *UAL "10"- (INKErS="N"' *UAL '305 

4" 

3Q70 SAUE "AGENDB" 

303© GOTO UAL "6" 



Arquivo-agenda 



1000 LET X=16514 

1010 INPUT AS 

1020 POKE X.16*C0DE AS+CODE AS (2 

I -476 

1030 PRINT AT £1,0;X;" ";Af 

1040 SCROLL 

105© IF X= 16523 THEN GOTO 1030 

1060 LET X=X+1 

1070 GOTO 101© 

1030 CLS 
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Usuarios de micros trocando mensagens, lendo e anexando 
informagoes, como num grande quadro de comunicagao. Essa 
e a ideia basica de um CBBS 



CBBS, um quadro 
de avisos comunitario 



.Ricardo Weiss Muricy. 



Desde que voce comprou seu mi- 
crocomputador cei tamente tern 
se dedicado a aprender BASIC, 
desenvolver programas, conhe- 
cer melhor a linguagem Assembler; utili- 
za-o tambem como ferramenta de traba- 
lho na sua atividade profissional e, even- 
tuaJmente, se descontrai brincando com 
jogos acirradamente disputados com as 
criancas da casa. Por isso, voce que ja 
leu ou ouviu o termo telecomunicacoes 
por microcomputador, colocou-o de la- 
do sem lhe dar muita atencao. E hora de 
mudar esse conccito e explorar essa 
nova e maravilhosa possibilidade de uso 
que o micro pessoal oferece. 

Ao adquirir seu sistema, voce seguiu 
uma formula mais ou menos como essa: 
computador mais perifericos e progra- 
mas. Ao acrescentar a esse sistema um 
modem e uma placa de circuito impres- 
so chamada RS 232 (se o micro nao 
veio com uma) voce estara apto a ingres; 
sar no mundo das telecomunicacoes. E 
tudo muito simples e relativamente ba- 
rato. Esta simplicidade faz com que 
cada vez mais possuidores de microcom- 
putadores adquiram estes equipamentos, 
e via linha telefonica acessem os CBBS 
do Brasil e ate do exterior. 

Telecomunicacoes por microcompu- 
tador e um segmento da industria de mi- 
cros que rapidamente se desenvolveu. 
Assim, tornou-se comum ouvir termos 
como on-line, videotexto e modem. 

Tudo isto somado faz parte do que 
se chama a era da informayao. Este ar- 
tigo nao vem dizer que a era da informa- 
cao e da comunicagao chegou, ele pre- 
tende dizcr que ela esta aqui, agora, pas- 
sando por voce. Ele vai dizer tambem 
como voce pode participar. 

Nos Estados Unidos e Europa esta 
tendencia vem sendo seguida ha algum 
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tempo. Do conforto de suas residencias, 
as pessoas tern acesso a servicos de tele- 
comunica5ao que tornam disponiveis 
a cultura e o conhecimento tecnico e ci- 
entifico que a biblioteca do bairro (se 
existente) talvez nao disponha. Alem 
disso, op9oes de noticiario atualizado, 
programas de divertimento, cotacoes de 
bolsas de valores, tabelas de pre?os de 
lojas etc., estab disponiveis atraves da 
simples opera?ao de conectar-se com o 
sistema, via rede telefonica. 

Estes servicos sao oferecidos por sis- 
temas que gerenciam e centralizam o 
acesso publico as informacoes coloca- 
das pelos donos/geradores da informa- 
930 (Informations Providers). As consul- 
tas sa~o feitas ao servico via rede telefo- 
nica, o qual recebe seu acervo do Infor- 
mation Provider. A figura 1 da uma 
ideia de como e esse processo. 

No acesso a estes sei'vi?os normal- 
mente se paga uma taxa, de acordo com 
o tempo de conexao e o tipo de infor- 
ma5ao que em parte e repassada para o 
fornecedor da informa9Sb. Estes siste- 
mas sa"o organizados em bases comer- 
ciais. Existem muitos outros que na"o 
tern interesse comercial algum, organiza- 
dos por entusiastas da telematica que 
concebem e gerenciam seus sistemas 
com tanta seriedade que na"o se pode di- 
zer que o facam por hobby. 

No Brasil, sao exemplos a nivel de 
empresa a Embratel (Cirandao), a Con- 
trol Data (Clube do Micro), e Telesp 
(Videotexto), com seus sistemas aber- 
tos. A Fundacao Getulio Vargas e o 
IBGE (com otimos acervos) em breve es- 
tarao com seus sistemas operando. 

ano de 1984 foi marcante para a 
telematica entre nos, pelo aparecimento 
de varios sistemas desenvolvidos por pes- 
soas na"o necessariamente da area de In- 



formatica e que sa"o os pioneiros dos 
CBBS no Pai's, entre eles, Paulo Sergio 
Pinto, Joao Roberto Amin, Antonio 
Prado, Henrique Pechman e Sylvain Ro- 
thstein. 

Estas pessoas sao pesquisadores e in- 
teressados no assunto que se sentem, 
como qualquer um de nos, excitados 
com a possibilidade de chamar outro 
computador, distante deles, e ver no 
display novas informa9oes e uma infi- 
nidade de utilidades disponiveis. Espiri- 
tos empreendedores, eles aceitaram o 
desafio de desenvolver seus sistemas ou 
adaptar sistemas comerciais (recriando- 
os na verdade), colocando-os a disposi- 
9ao dos usuarios que rapidamente se 
multiplicand Acreditamos que o pensa- 
mento destes precursores pode ser tra- 
duzido pelas palavras de Laiy L. Meyers 
em seu livro How to Create Your Own 
Computer Bulletin Board, que diz: "Eu 
gosto da mecanica envolvida e que torna 
possi'vel tal fato (telecomunica9ab por 
micro). Se voce parar para pensar so- 
bre todos os dados que devem ser trans- 
mitidos e recebidos, voce vai dar o devi- 
do respeito pela tecnologia envolvida. 
Foi este respeito, adicionado ao fator 
novidade, que me incentivaram a escre- 
ver meu proprio CBBS." 

A ideia dos CBBS, nos Estados Uni- 
dos, iniciou-se com Randy Suess e Ward 
Christensen, considerados os pais dos 
pequenos sistemas de quadros de aviso. 
A ideia deles era criar um lugar de cha- 
mada para outros membros do clube, 
um local de usuarios de computador. Se- 
guiu-se a isso, a cria92b, por Graiq Vau- 
gham e Bill Blue, de sistemas voltados 
para a linha Apple (ABBS). Logo a se- 
guir apareceram nomes como o FORUM- 
80, ACCES-80 e GREEN MACHINE. 
Atraves destes boletins, sem ter que pe- 
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gar a pessoa em casa, e possi'vel a troca 
de mensagens entre os usuarios. 

No Brasil, a ideia desenvolveu-se se- 
guindo este mesmo modelo. Temos al- 
guns sistemas operando com sucesso, en- 
tre eles o FORUM-80 do Rio de Janeiro 
(tel. (021) 287-8844) que ate novembro 
de 1 984 contava com 250 usuarios ati- 
vos e com 4000 chamadas desde junho 
de 84 quando foi lan9ado. Como osde- 
mais CBBS nacionais, nao tern interesse 
comercial. O FORUM-80 esta dispon:'- 
vel para acesso 24 horas por dia e, como 
os demais CBBS nacionais, n5b tern inte- 
resse comercial. A finalidade do sistema 
e promover intercambio de informa* 
90es tecnicas, mensagens comerciais, 
mensagens pessoais, bem como a troca 
de programas e arquivos de domihio pu- 
blico para usuarios registrados. 

CBBS: O QUE SAO E QUE 
OFERECEM 

CBBS ou Computer Bulletin Board 
System (sistema de quadro de avisos por 
computador) e o termo usado para des- 
crever um servi9o em que pessoas distan- 
tes podem chamar um computador, 
usando a linha telefonica e um terminal 
de computador (ou micro), tendo acesso 
assim a varias fun9des. Estas fun96es vao 
desde simples mensagens ate complexos 
bancos de dados, usando a grande capa- 
cidade de arquivos de um minicomputa- 
dor. Pense num quadro de avisos comu- 
nitario, onde voce pode ler e colocar 
lembretes e avisos de objetos que quer 
vender/comprar, informa96es e eventos. 
Some a isto a possibilidade de trocar 
mensagens pessoais com amigos e a de 
consultar bancos de dados variados, e 
tera a ideia basica de um CBBS. 

Estes bancos de dados vao desde as 
simples listas de telefones, conjuntos 
de programas, ate os mais complexos, 
com informa9(5es de interesse geral e 
ou acervo tecnico/arti'stico/cientifico 
restrito a areas especi'Ficas. 

A configura9ao basica para acessar 
um CBBS e simples. O equipamento 
principal voce certamente possui e com 
dois acessorios voce estara apto a conec- 
tar-se a qualquer CBBS. Vejamos: 

• microcomputador ou terminal 

• interface RS 232 

• modem 

• linha telefonica 

• software 

O tipo de microcomputador ou ter- 
minal que voce vai utilizar fica inteira- 
mente por sua conta. Desde que o ma- 
nual garanta a coloca9ab da placa RS 
232 (se nao possuir), voce nao tern que 
se preocupar com isso. Algumas maqui- 
nas nao usam internamente a mesma 
combina9ao de bits para proccssar uma 
letra. Fehzmente existem padrocs stan- 
dard para transformar o sinal eletrico de 
qualquer computador na mesma letra ou 
carater digital, inteligivel por outra ma- 
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Figura 1 

quina, sao o codigo ASCII e o RS 232. 
Nao se preocupe, por conseguinte, com 
as caracteristicas internas do seu equi- 
pamento. Voce podera usar tambem um 
terminal qualquer, desde que ele aceite 
uma interlace RS 232. 

A RS 232 e uma norma standard 
para comunica9oes seriais, definindo 
um meTodo amplamente aceito para in- 
terfacear equipamento terminal (micro) 
com equipamento de comunica9Sb de 
dados. 

O cora9So da interface e a UART 
(Universal Asynchronus Receiver-Trans- 
miter). Este integrado MOS LSI (por 
exemplo TR 1602A,8255) contem a 
maioria do hardware necessario para re- 
ceber e transmitir dados seriais. A UART 
obedece a uma resolusao industrial que 
estabelece nonnas do equipamento para 
interfacear um sinal assincrono e a es- 
trutura paralela de um microprocessa- 
dor. A se9ao de transmissSo da UART 
converte dados paralelos do micropro- 
cessador em informa9c3es seriais que 
contem os dados juntamente com start 
bit, bit de paridade e stop bit. A se9ao 
de recep9a"o converte uma informa9ao 
serial tambem com start bit, dados, bit 
de paridade e stop bit em dados parale- 
los, e verifica a transmissSb. 

A opera9a"o da UART pode ser pro- 
gramada; assim, tamanho da informa- 
950 pode ter 5, 6, 7 ou 8 bits. A pari- 
dade podera ser modificada (par, fmpar 
ou sem paridade), bem como o numero 
de stop bits (1, 1.5 ou 2). 

O modem e um equipamento para 
transmissa"o de dados fornecidos em se- 
rie, que se conecta a linha telefonica. 
Uma vez que os dados saem do compu- 
tador em forma serial, e necessario que 
sejam convertidos em tons requeridos, 
para transmissao atraves da linha telefo- 
nica. Esta e a finalidade do modem (mo- 
dular-demodular). Quando um bit de da- 
dos e colocado no modem, ele e conver- 
tido em sinais sonoros usando uma de- 
terminada conve^ao. 

Nos Estados Unidos usa-se a conven- 
98b Bell (homenagem a Graham Bell). 
Dentre estas podemos citar a Bell 103 
e Bell 212. Na Europa utiliza-se a con- 
ven9a"o CC1TT. Dentre as converses 
CCITT podemos citar a V.21, V.22, 
V.23 e V.24. Ja no Brasil, atraves de 
norma da Telebras, adotou-se o padra"o 
CCITT. Neste padrao encontramos, por 
exemplo, a norma V.24 que determina 



o sinal representado por 980 +- 6Hz e o 
espa90 por 1180 +- 6Hz. Cada norma 
tem representa9<ro diferente para fre- 
qiiencia e formas de modula9Sb. Torna- 
se evidente que Bell nao fala com CCITT. 

De uma maneira geral a velocidade da 
transmiss2o/recep9a"o fica em 300, 1200 
ou 1200/75 bauds. Nos 300 e 1200 
bauds, a transmissSb e recep9ao sa"o fei- 
tas a mesma velocidade. Nos 1200/75, a 
transmissab e feita em 75 e a recep9ao 
em 1200 bauds. 

O uso de um modem, ligado a linha 
telefonica, esta regulamentado e autori- 
zado pela portaria 081/81 que autoriza 
uso da rede telefonica para transmis- 
sSb de dados. Qualquer duvida, entrar 
em contacto com servi90 comercial da 
Embratel, pelo telefone (02 1)221-1 830. 




SEJA NOSSO 
COLABORADOR! 

Escreva um bom artigo sobre: 

* Macetes de prograrnagao 

* Dicas sobre seu equipamento 

* Sistema operacional, etc. 

E envie-o para nossa redagao. 
Os artigos aprovados serao 
remunerados e os outros, 
devolvidos. Mas nao se 
esquega de mandar seu nome 
completo, enderepo e telefone. 

VENHA FAZER 
NOTICIA CONOSCO! 

,_. VHioro 
Sistemas 

Av. Presidents Wilson, 165/grupo 1210, 
Centro, Rio de Janeiro - RJ — 
CEP 20030 Tel.: (021) 262-5259 

R. Oliveira Dies, 153, Jardim Paulista, 
S3o Paulo, SP CEP 01433 - Tels.: (01 1 ) 
853-7758, 881-5668, 853-3800 



CBBS, UM QUADRO DE AVISOS COMUNITARIO 



O que voce tambem necessitara, para 
entrar em contato com urn CBBS, 6 de 
uma linha telefonica. A ligagao do mo- 
dem a linha e simples e feita em parale- 
lo, bastando ligar os dois fios nos seus 
terminals. 

software que voce tera que dispor, 
para poder usar os servicos, pode ser de 
dois tipos, basicamente. 

primeiro e bastante simples e Simu- 
la urn terminal teletipo ou simulador 
TTY ou emulador TTY. E o chamado 
terminal burro podendo ser poucas li- 
nhas de programa em BASIC (ate 300 
bauds) ou em Assembler, para nao per- 
der caracteres, se a transmissa~o for em 
1200 bauds. Este software coloca na 
sua tela cada carater recebido pela RS 
232, e transmite para a RS 232 cada ca- 
rater digitado no seu teclado. 

segundo tipo, alem das funcoes 
acima, oferece outros recursos, sendo 
chamado terminal inteligente. Podemos 
citar, dent re as funcoes, as de transmitir 
e receber arquivo, gravar em disco, per- 
mitir simultaneamente display e impres- 
sora, e funcionar em half duplex ou full 
duplex. 

Em half duplex, os caracteres envia- 
dos para a RS 232 vao para o seu video 
(com eco). Em full duplex, os caracteres 
digitados sao enviados para a RS 232 e 
nao para o video (sem eco). Neste caso, 
o host providencia o eco para que voce 
possa visualizar o que foi enviado. 

As outras funcOes dependem das ca- 
racteristicas de cada equipamento. 

A primeira vista, organizar um CBBS 
parece ser muito difi'cil e dispendioso. 
Se voce e empreendedor, tern bom co- 
nhecimento de BASIC e Assembler e al- 
gum capital, saiba que na"o c tao difi'cil 
assim tornar-se um Sysop (System Ope- 
rator). 

equipamento e basicamente o mes- 
mo. modem devera ser mais sofistica- 
do (auto answer) para responder auto- 
maticamente ao chamado do usuario. 
Existem livros especializados que forne- 
cem todos os detalhes e macetes, inclu- 
sive com listagem dos programas. Voce 
podera obter sistemas prontos (manual e 
disco com programa) nos fornecedores 
estrangeiros. 

Acreditamos no surgimento, muito 
em breve, de novos CBBS, na medida 
em que o interesse dos usuarios for au- 
mentando. 

PORTELEFONE 

A melhor forma de voce ficar conhe- 
cendo os CBBS e acessando-os. Conec- 
te-se e verifique as modalidades de ser- 
vi90S, o mais solicitado e o quadro de 
avisos. Ciranda"o ja oferece um servico 
exclusivo para a area medica e muitas 
outras opgoes. 



Alem da utilidade e dos servi^s, des- 
tacamos o aspecto social, pois os usua- 
rios de CBBS acabam tornando-se ami- 
gos, sendo muito solidarios entre si, pro- 
curando resolver problemas tecnicos e 
particulares, promovendo eventuais en- 
contros para confraternizaca"o e debate 
de assuntos de interesse mutuo. 

Faca um acesso a qualquer dos CBBS 
abaixo via telefone. No Brasil temos: 

• CBBS DO AMIN 

telefone: (021) 246-2938 
de segunda a sexta, das 20 as 24 horas 
sabado e domingo das 14 as 24 horas 
atendimento Bell, 300 bauds, 8/1 /N 

• CBBS DO PINTO 

telefone: (021) 227-9211 

segundas, quartas e sextas, das 20 as 

24 horas 

atendimento Bell, 300 bauds, 8/1/N 

telefone: (021) 247-8440 

de segunda a sexta, das 20 as 24 horas 

sabado e domingo, das 14 as 24 horas 

atendimento CCITT, 300 bauds, 8/1/N 

• CBBSDOPRADO 

telefone: (01 1)81 3-2616 
terca e quinta, das 20 as 24 horas 
atendimento CCITT, 300 bauds, 8/1/N 
quarta das 20 as 24 horas 
atendimento Bell, 300 bauds, 8/1/N 

• CLUBE DO MICRO 

Rio de Janeiro: (021) 266-3939 

Sao Paulo: (01 1)255-0300 

Belo Horizonte : (03 1 ) 337-7767 

dias uteis, das 20 as 24 horas, sabados 

de 8 as 24 horas 

atendimento CCITT, 300 bauds, 7/1/E 

• CIRANDAO 

Rio de Janeiro: (021) 233-2000 

Belo Horizonte: (031) 227-3300 

Curitiba: (041) 233-3855 

Brasilia: (061) 225-0300 

Porto Alegre: (05 12) 2 1-0222 

diariamente de 07 a 01 hora do dia 

seguinte 

atendimento CCITT, 300 bauds, 7/1/E 

Rio de Janeiro: (021) 253-4000 

Belo Horizonte: (031) 227-3200 

Curitiba: (04 1)233-3796 

Brasilia: (061) 226-1200 

Porto Alegre : (05 1 2) 27-1 200 

diariamente de 07 a 01 hora do dia 

seguinte 

atendimento CCITT, 1200/75 bauds, 

7/1/E 

• FORUM-80 DO RIO DE JANEIRO 

telefone: (021) 287-8844 
diariamente horario integral 
atendimento CCITT, 300 bauds, 8/1/N 

Nos Estados Unidos, temos: 

• FORUM-80#1 
Kansas City, Missouri 



telefone: (8 16) 861-7040 
atendimento Bell, 300 bauds, 8/1/N 

• CBBS#1 
Chicago, Illinois 
telefone: (3 12) 545-3086 
atendimento Bell, 300 bauds, 8/1/N 

• CONNECTION-80#1 
Centereach, New York 
telefone: (5 16) 588-5836 
atendimento Bell, 300 bauds, 7/1/E 

E na Europa: 

• CBBS NORTH-EAST 

Inglaterra 

telefone: (44) 02707-43555 

das 2.30 PM as 09 AM (hora local) 

atendimento CCITT, 300 bauds 

. MAILBOX-80 

Inglaterra 

telefone : (44) 05 1 -428-8924 

das 09 AM as 1 1 PM (hora local) 

atendimento CCITT, 300 bauds, 8/1/N 

• FORUM-80 

Inglaterra 

telefone .-(44)0908-566660 
das 7 AM as 10 PM (hora local) 
atendimento CCITT, 300 bauds 

• FORUM-80 

Holanda 

telefone : (21) 01-313-512533 

tcrc^i a sabado de 06 PM as 07 AM 

(hora local) 

sabado 06 PM ate terca as 07 AM 

(hora local) 

atendimento CCITT, 300 bauds 

• ABC-80 

Suica 

telefone: (046) 010-468-1 90522 

atendimento CCITT, 300 bauds 

• SOFTWARE TOOLS RCP/M 

Sydney, Australia 
telefone: (061) 2-997-1018 
atendimento CCITT, 300 bauds 

As informacoes acima (telefone e ho- 
rario) foram compiladas na primeira 
quinzena de dezembro de 1984. Como 
os sistemas sao muito dinamicos, algu- 
mas alteraco"es podem ter ocorrido, des- 
de entao. 

Agora, conecte-sc c tire suas proprias 
conclusoes. Garanto que voce vai gostar. 



Ricardo Weiss Muricy 6 contador, estudioso 
de Informatica e programacao, sendo usuario 
de CBBS. J4 colaborou nesta revista com os 
artigos "UM SHELL SORT PARA REGIS- 
TROS DE VARIOS CAMPOS" (MS set. 82) e 
"MEU APRENDIZADO DE BASIC" (Jul. 82) 
tendo colaborado tamb&m em outros vei'culos 
sobre legislacao fiscal e tematica conta'bil. 



MICROMAQ 



PROGRAMAS PARA CP-400 
COLOR 64 - TRS-80 COLOR COMPUTER 

A MICROMAQ o mais tradicional revendedor de software para a linha TRS-80 

COLOR COMPUTER no Brasil, em conjunto com a MICRO SISTEMAS coloca 

a disposigao dos usuarios o maior catalogo de programas para esta linha. 



J0G0S EM AQA0 EM LINGUAGEM DE MAQUINA 

101 Cuber: (32K) ajude o cuber a enf rentar os inimigos enquanlo a piramide muda de cor. 20.000 

102 Trapfall: (16K) sao muitas as armadllhas (Pitfalls) e os perigos que voce enfrenta na 

caga ao tesouro. 20.000 

103 Jr. Reverenge: (32K) Climbenlrentaobstaculos ecriaturas para salvar seu pai do terri- 

vel Luigi. 20.000 

104 8 • Ball: (16K) para os amantes do jogo de bilhar. 20.000 

105 Tenis: (32K) para os amantes do jogo de tfinis. 20.000 

106 Cyrus (Xadrez): (32K) para os amantes do jogo de xadrez. 20.000 

107 Sea Dragon: (32K) emogao e suspense sob as aguas. 20.000 

108 Tubarao: (16K) um jogo para quern tern nervos de ago. 20.000 

109 Vegas: (32K) sinta-se num cassino-caga-nlquel, cartas, loto. dados e 21. 20.000 

110 Pic nic: (32K) ajude a formiga a estocar alimentos. 20.000 

111 Moon Shulle: (32K) enfrente todos os obstaculos (meteoritos, bombas, etc) para des- 

trulr o principe das trevas. 20.000 

112 Zaxxon: (32K) enlrente canhfles, misseis, avioes, barreiras de forga e destrua o robo 
Zaxxon. 20.000 

113 Pooyan: (32K) delenda o seu vale da invasao dos lobos. 20.000 

114 Froog: (32K) ajude o sapo a atravessar a rua e o rio. 20.000 

115 JeM: (16K) viva as emogfies do lilme Retorno de Jedi. 20.000 

116 Andr6ide: (32K) ellmine os andr6ides e saia do labirinto. 20.000 

117 Astro-Blast: (32K) batalha espaclal. 

118 Passaros: (16K) elimine os passaros invasores. 

119 Buzzard Bait: (32K)ataque os passaros com sua langa. 20.000 

120 Candy Co: (32K) coma doces e vitaminas para eliminar os inimigos. 20.000 

121 Cashman: (32K) pegue o dinheiro e elimine os galos (99 telas). 20.000 

122 Clowns: (32K) (ure os baloes saltando na cama elastica. 20,000 

123 Cosmic: (16K) futebol amerlcano com naves espaciais. 20.000 

124 Cpede: (16K) mate a centop6ia e a aranha. 20.000 

125 Demon Seed: (32K) destrua passaros, sementes e a nave. 20.000 

126 The King: (32K) salve a princesa raptada pelo King Kong. 20.000 

127 Firecopt: (32K) apague incendios e elimine incendiarios. 20.000 

128 Doodle Bug: (32K) estilo Pacman. 20 000 

129 Fury: (32K) batalha aerea. 20.000 

130 Gallax Attack: (16K) batalha espaclal, 20.000 

131 Gllaxxons:(16K) batalha espacial. 20.000 

132 Gobbler: (16K) tipo Pacman. 20.000 

133 Grabbler: (32K) defenda-se dos inimigos em um duplo labirinto. 20.000 

134 Grand Prix: (32K) corrida de carro. 20.000 

135 Kron: (32K) 4 jogos dllerentes em um. 20.000 

136 Lunar: (32K) venca os obstaculos durante um passeio de Jeep na lua. 20.000 

137 Mudples: (32K) atire tortas e defenda-se dos cozinheiros. 20.000 

138 Pedro: (32K) defenda o jardim dos animais. 20.000 

139 Pinball:(32K), 20.000 

140 Polaris: (32K) defenda os submarinos do ataque aereo. 20.000 

141 Draconia: (32K) salve os prisioneiros do espago e fuja do dragao. 20.000 

142 Bag-Man: (32K) roube o ouro e fuja dos mineiros. 20.000 

143 Tut's Tomb: (32K) enfrente os perigos de uma caverna em busca do tesouro, 20.000 

144 Willy's (32K) transporte os numeros de um lado para oulro sem ser derrubado pelos 
inimigos. 20.000 

145 World's of Flight: (32K) simulador de v6o. 20,000 

146 Mega Bug: (16K) fuja das baratas em um labirinto. 20.000 

147 Bandits: (32K) procure tesouros em trfis terras (fantasia, fuluro e oeste) e enfrente os 
bandidos. 20.000 

JOGOS DE AVENTURA COM ALTA RESOLUCAO GRAFICA 

201 Calixto: (32K) ajude o arqueologo (prof, lagarto) a recuperar o tesouro • em ingl§s 25.000 

202 Sea-Quest: (32K) recupere o tesouro perdido • em ingles. 25.000 
' 203 Shennan: (32K) encontre o tesouro no fim do arco-iris - em Ingles. 25.000 

204 Sanctum: (32K) exorcise o demonio - em ingles. 25.000 

JOGOS EDUCATIVOS 

304 FigurasMaglcas:(16K)associagaodefigurasecoresdeseismanelrasdilerentes.Para 
crrancas de 3 a 6 anos - Manual em ingles 40,000 

305 Letras Magicas: (16K) ajude o bicho papao a comer as letras certas. Para criangas de 

3a 6 anos- manual em ingles. 40.000 

306 Niimeros Magicos: (16K) ajude o Graver Rover a brincar com os numeros. Para crian- 

gas de 3 a 6 anos • manual em ingles. 40,000 

307 Correio Eletr6nico: (16K) ajude o Big Bird a entregar as correspondents nos luga- 

res certos. Para criangas de 3 a 6 anos - manual em ingles. 40.000 

308 Caga as Estrelas: (16K) jogo eslrategico. Voce lem que pegar as estrelas no ceu. Para 
criangas com mais de 7 anos • Manual em ingles 40.000 



APLICATIVOS COMERCIAIS 

401 WRITTER II: (32K) editor de texto com as seguintes caracterislicas: linha de ate 240 
caracteres na impressora e 51 colunas na tela. Capacidade para imprimir caracteres 
Portugueses ou simbolos especiais (at<§ 10). Paginagao aulomalica. Centralizagao au- 
tomalica. Manual em Ingles com 90 paginas. 120.000 

402 Elite-Calc: (16K) plarfllha eletronica com as seguintes caracterislicas: ate 255 linhas 
e colunas. Manipula textos, numeros, operadores matematicos, fungoes trigonome- 
tricas e fungfies estatisticas (maximo, minimp, media). Emite graficos e permlte or- 
denar colunas e linhas. Manual em ingles e portugues - 20 p. 80.000 

403 Color File: (16K) banco de dados que permite manipular 7 arquivos pre-def inidos (en- 
deregos, despesas, investimenlos...). Voce tambem pode detinir os seus proprios ar- 
quivos com campos alfabeticos ou numeVicos. Manual em ingles com 10 paginas. 60,000 



LINGUAGENS 



501 Edtasm: (16K) Linguagem Assembler para o 6809 - 1 

502 Forth: (16K) Linguagem Forlh para o 6809. Ml. 

503 Logo: (32K) Linguagem educativa logo • Ml. 



UTILITARIOS 



60.000 
100.000 



601 Color Kit: (32K) utilitario em Assembler que complementa o Color Basic com mais de 
30 funcoes para f acili tar a programagao em Basic ou linguagem de maquina. Manual 

em ingles com 30 paginas. 80,000 

602 Stripper (16K) utilitario que permite compactar programas em Basic eliminando bran- 
cos, comentarios e concatenando linhas. 40.000 

603 Tiny Compiler: (16K) utilitario que permite compilar a maioria dos comandos Basic e 
extended Basic. Manual em ingles. 80.000 

604 Super Screen: (16K) aumenta o tamanho da tela. Color passa a trabalhar com 57 co- 
lunas e 24 linhas. 40.000 

605 Disassembler: (16K) disassemblador de programas em linguagem de maquina. 40.000 

606 Hambug: (16K) permite analisar byte a byte qualquer programa Basic ou em lingua- 
gem de maquina. Manual em ingles. 50,000 



SOFTWARE DECOMUNICAQAO 

711 Color Terminal: (16K) software decomunicagao para projeto Cirandao, Aruanda e Ban- 
cos de Dados Particulares. Transmite e recebe arquivos em Basic ou linguagem de ma- 
quina. BAUD RATE de 1 10 a 9600 em DUPLEX/H ALF/FUUECHO. Tamanho da palavra 
7 ou 8 bits, Paridade par, impar ou nenhuma. Stop Bits de 1 a 9. Manual em ingles com 
30 paginas. 120.000 



NOVIDADES 



148 Poltergeinst 

149 Double Back 

150 Storm Arrows 

151 Time Figther 

152 Super Pac II 

153 Speed Race 
154FlyTige' 

155 Ice Hockey 

156 Out House 

157 Packmaze 

158 Pac-Tac 

159 Robotron 

160 Tempest 

161 Protetor 

162 Venturer 

163 Defense 

164 Quicx 
165Smurf 

205 Star Trader 

206 Midle Kindgton 

504 Pascal 



I I 


I I 



SIM. Desejo receber os seguintes programas pelo(s) qual(is) 
pagarei a quantia de Cr$ 



NOME: 



M r r/ 
WW 'dedi 



20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 
20.000 

25.000 
25.000 

100.000 



END.: 



CIDADE: 



UE: 



CER: . 



Para tal, estou enviando um cheque nominal a ATI Editora Ltda., Av. Presidente Wilson, 165 
Grupo 1210 • Centra, CEP 20.030 - Rio de Janeiro - RJ. • Despesas de Correio incluidas 



TABELA 
DE DESCONTO 

ate 50.000,00 - sem desconto 
de 51.000,00 a 100.000,00- 5% 
de 101.000,00 a 150.000,00 - 10% 
de 151.000,00 a 200.000,00 • 15% 
Acima de 200.000,00 - 20% 



MICRO SISTEMAS, abril/85 



MICROMAQ - Rua Sete de Setembro, 92 - Lj. 106 - Tel.: (021) 222-6088. 



Linha SINCLAIR 



DEFM no Sinclair 

A dica abaixo e muito util para programadores que 
utilizam o Assembler. Ela Simula a instrucao DEFM 
(definicSo de mensagem) dos editores de c6digo de 
miquina. 



9000 PRINT" "ENDERECO V 

9005 INPUT E 

9010 PRINT "MENSAGEM ?" 

9015 INPUT M<6 

9020 LET X=PEEK 16398 

9025 LET Y=PEEK 16399 

9030 POKE 16398 r E-256*INT<E/256> 

9035 POKE 16399, INT(E/256) 

9040 PRINT MS 

9045 POKE 16398.X 

9050 POKE 16399 ,Y 

9055 PRINT "MENSAGEM DEFINIDA." 

As linhas 9030 e 9035 mudam a posica"o PRINT 
do arquivo de imagem para uma £rea qualquer, desig- 
nada pela variavel de enderecamento E, tornando o 
PRINT uma instrucao POKE muito mais eficiente. 

Frederico dos Santos Liporace - RJ 



Linha SINCLAIR 



Explorando graficos 

Picasso? Van Gogh? Dali? Nao chega a tanto, mas 
bem que d4 para inventar incrfveis desenhos com este 
programa em BASIC, que explora bastante os caracte- 
res graTicos do micro. Ap6s rodar o programa, teste os 
seus dotes artisticos modificando os valores das linhas 
de 20 a 30, ou entSo alterando o comprimento da 
variavel AS . 

5 CLE 

10 RAND 

15 POKE 16418,0 

20 LET A=INT (RND*iO)+i 

25 LET B=INT <RND*10)+128 

30 LET C=INT <RND*iO>+128 

35 LET MHCHftS A+CHRS B+CHR* C 

40 FOR T=l TO 256 

45 PRINT AT>; 

50 NEXT T 

55 FOR T=0 TO 20 

60 NEXT T 

65 RUN 

Claudio Costa - RJ 



Linha CP/M 



Recuperando programas 

As vezes, durante a digitaca"o de urn programa (em BASIC 
ou em outra linguagem, e ate mesmo em alguns programas 
.COM), involuntariamente voltamos ao sistema e perdemos 
o nosso programa PERDEMOS??!!;;,,.. NEM SEMPRE. Se 
voce nao teve que dar um MASTER RESET poderemos re- 
cuperar o programa perdido. Para isso, depois que surgir o 
A > , entre com: SAVE $ $ $. COM. | (sen do que $ $ $ 
6 o nome do programa). Depois, digite $ $ $ que o progra- 
ma estara" de volta. 

Domingos Aliperti Jr. - SP 



_ln 

dici 





Envie suas dicas para a Redac§o de MICRO 
SISTEMAS, na Av. Presidente Wilson, 165 — 
grupo 1210, Centro Rio de Janeiro, RJ. 
CEP 20030. 



Linha SINCLAIR 



Atire em movimento 



16666 
16674 
16682 
16690 
16698 
16706 



2A 84 40 E5 Dl DE) FE OB 

57 28 06 CB 67 20 10 2B 

2B 23 7E FE 76 28 08 3E 

80 36 A6 12 22 84 40 OB 

FE CB 47 02 7C 41 18 06 

00 00 00 00 00 00 



Existe uma certa 
dificuldade no 
controle do micro 
pelo teclado du- 
rante a execu<?a"o 
de um programa, 
principalmente quando este e em Assembler e ha necessi- 
dade de se pressionar varias teclas simultaneamente : foi 
exatamente isto o que observei ao rodar o programa La- 
ser Base: o tiro do canhdo (MS n9 28, pag. 62), pois o ca- 
nha"o na"o reagia ao comando do teclado quando duas (ou 
mais) teclas eram acionadas. Por isso, tomei a liberdade 
de reescrever parte da sub-rotina que controla o canha"o 
do Laser Base. 

Esta sub-rotina, que permite o disparo do canha"o em 
movimento, devesercolocadaapartirdoendereco 16666. 
E, como ela economiza oito bytes, foi inserido um des- 
vio no endereco 16704 para ignorar, desta forma, os by- 
tes na"o utilizados. 



Gilson Roberto Viana - PR 



Linha TRS-80 



Ligagao PTO a PTO 

Esse pequeno programa traca uma linha entre dois 
ponto dados. 

100 INPUT"ENTRE COORDENADAS X,Y DO PRIMEIRO P0NT0"fX,Y 

110 INPUT"ENTRE COORDENADAS X,Y DO SEGUNDO P0NT0";X1,Y1 

120 CLS:IF ABS<Xi-XXABS(Yi-Y)THEN 160 

130 FOR X2=X TO XI STEP 2*<Xi<X)+i 

140 SET<X2, <X2-X>*<Yl-Y>/<Xi-X>+Y+.5> 

150 NEXT:END 

160 FOR Y2=Y TO Yl STEP 2*<YKY) + i 

170 SET(.5+<Y2-Y)»<Xl-X)/(Yi-Y)+X,Y2> 

180 NEXT:END 

Fernando Osvaldo Oliveira Jr. - SC 



Linha 



SINCLAIR 



Datilografia 
no micro 

Essa rotina trans- 
forms seu micro numa 
poderosa mdquina de 
escrever. Para digits- 
la crie uma linha REM 
com 40 caracteres e 
para us£-la basta o 
RAND USR 16514. 

ATENCAO: break 
pode ser usado como 
espaco normalmente e 
para retornar ao BA- 
SIC, pressione SHIFT 
+ BREAK. 



16514 

16515 

16516 

16517 

16518 

16519 

16520 

16521 

16522 

16523 

16524 

16525 

16526 

16527 

16528 

16529 

16530 

16531 

16532 

16533 

16534 

16535 

16536 

16537 

16538 

16539 

16540 

16541 

16542 

16543 

16544 

16545 

16546 

16547 

16548 

16549 

16550 

16551 

16552 

16553 



205 

137 

2 

68 

77 

121 

254 

255 

62 



40 

244 

205 

189 

7 

126 

205 

8 

8 

254 

12 

200 

6 

1 

17 

255 

255 

33 

50 

55 

25 

56 

253 

16 

248 

24 

219 

248 

24 

216 



Linha APPLE 



Brincando COm O Video I De baixo para cima: 

Eis algumas interessantes sugestOes de 
efeitos para o seu Apple. 
Apague o video da esquerda para a direita: 



10 FOR A=24 TO 1 STEP-i:VTAB A:HTA 
B l:CALL-868:F0R B=i TO 30:NEXT B, 
A 



10 FOR A=i TO 40:POKE 33,A=H0ME:F0 
R B=i TO 30:NEXT B,A 



Da direita para a esquerda: 



10 FOR A=39 TO STEP-1:P0KE 32, A: 
POKE 33, 40 -A: HOME: FOR B=i TO 30:NF 
XT B r A 



Do centro para os lados: 



10 FOR A=i TO 20:POKE 32,20-A:POKE 
33, 2* A: HOME: FOR B=i TO 30:NEXT B, 
A 



Linha TRS-80 



POKE no lugar de SET 

Para descobrir o endereco POKE de uma 
instrucao SET (X,Y), use esta pequena f6r- 
mula: 

1000 T=FIX<Y/3>*64+FIX<X/2> +15360 

onde T = endereco, no video, das coorde- 
nadas X, Y. 

Fernando Osvaldo Oliveira Jr. - SC 



Linha APPLE 



Faixas aieatorias 




Deixe seu micro criar faixas aieatorias 
com esse pequeno programa Applesoft. 

10 REM FAIXAS AIEATORIAS 

20 REM ARMANDO OSCAR UAVANHA FILHO 

30 HGR2:A=00:S=i.:X=3:K=2*RNfXl):L= 

3:.J=K/2 

80 X=X+S 

90 IF A<8 OR A>152 THEN K=-K 

100 HC0L0R=L:HPL0T X,A TO X,AHO 

tiO HCOL0R = L<i :HPL0T X,AH0 TO X,A 

+20 

120 HCOLOR-I i?:HPl.0T X.A+20 TO X.A 

+30 

150 IF X<3 OR X>275 THFN GOBUB 400 

170 A=AfS«K*STN<J*X/50>:G0T0 00 

400 I = I + 1:S=<-1> I:K=3*RN0(1):.J=RN 

0(1)»K 

410 L=INT(3XRND( !.) + >): IF INT(I/7) = 

1/7 THEN T.0O 

420 RETURN 

S00 TEXT i HGR2 J RETURN 



Manoel Silva Rodrigues - RJ. 



OPCAO PARA TK2000: 160 SOUND A,L 

Armando Oscar Cavanha Filho - RJ 



De cima para baixo: 

10 FOR A=i TO 24:VTAB A:HTAB i:CAL 
L-868:F0R B=l TO 30:NEXT B,A 

De cima para baixo com risco horizontal: 



10 INVERSE:FOR A=l TO 24:VTAB A=HT 
AB 1:INVERSE:PRINT SPC(40):VTAB A: 
HTAB 1:N0RMAL:PRINT SPC(40):NEXT A 
:H0MF. 



Jos6 Amim Cury Nasser - DF 



Linha APPLE 



Brincando com o video II 

Experimente estes efeitos sofisticados 
em seu micro da linha Apple. 
Apagando a tela em espiral: 



5 A- J :C>23 

10 1NVEK!5E:HTAB UVIAB A:('RINi SPC 
(40): NORMAL 

;?0 FOR I=A TO 22:UTAB ):HTAB 40-A: 
INVERSE: PR INT" " i NORMAL : NEXT 
)0 INVERSEsHTAB 1:VTAH EsPRINT SPC 
(40):NORMAL 

40 FOR 1=A 10 22:VTAB 1:HTAB A=INV 
ERSESPRINT* ": NORMAL: NEXT 
•J0 A=AM:C=C-i:IF A<15 THL-N GOTO i 




Quadriculando a tela (Preto e Branco): 



)0 ]NVERSL:FOI< A^24 TO 1 STEP-1:VT 

AB A 

20 FOR B=A-INT<A/2)*2+i TO 40 STEP 

2:HTAB BSPRINT" ";:NEXT B,A 
30 NORMAL 



Quadricule a tela (vdrias cores): 



10 MGRSPQKE 4V234,0:HCOLOR=3:FOR A 
=0 TO 191 STEP 4 
20 HPL01 0,A TO 27V,A:NEXI A 
30 FOR B=t 10 137 STEP 8:HPL0T B,l 
10 n,lVl:HPLOT 279--A,i TO 279-A.i 
91:NEX1 H 

Apague a tela com efeito estrela: 



:« b=2» 

10 B=B-i!VTAB U: HI All 1 :CALL-B68: IF 

B-3 VHEN GOTO 45 
20 C=C-tl:VTAB CsHTAB l:CALL-868 
30 A=A+1:P0KE 32,20-A:POKE 33,2xA: 
GOTO 10 
45 REM 

Apague a tela com INVERSE: 

10 B=i:C=l 

7l<d FOR t-24*A+B TO I?4»8+A STEP C:I 

F B=i THEN INVERSE 

30 HTAB J:VTAB I:PRINI SPG(40>:NOR 

MAL:NEXT I: IF A=i THEN GOTO 50 

40 A=l:O-l:B = 0:GOTO 20 

50 REM 



Jose Amim Cury Nasser - DF 




O Constellation e uma boa 



micro Constellation, fabrica- 
do em Hong Kong pela Novag 
Industries Ltda., esconde em 
sua aparencia simples uma habilidade 
para o xadrez que chega a surpreender. 
conjunto de abertura que vem em sua 
bagagem mnemonica e de excelente qua- 
lidade. A busca de uma fraqueza em seu 
jogo exige bastante paciencia. 

Seu forte e a abordagem tatica das 
posicoes com as quais se delronta. O 
jogo na fase final pareceu-me, contudo, 
inferior ao do Elite A/S B. Mas levando- 
se em consideracSo seu preco — metade 
do concorrente, o Elite - e ainda uma 
boa compra. 

OBS — Por motivo de doenca em fa- 
milia suspendi a elaboracao desta colu- 
na, que muito me agrada produzir. Que- 
ro agradecer as manifestacoes de interes- 
se e pedidos de continuidade de amigos 
e leitores. 



CONSTELLATION X NN 
NIVEL4-RIO, 18, XI, 1984 



1-P4R P4R; 2-C3BRC3BD;3-B5C 
CR-2R; 4-0-0 P3TD; 5-BxC CxB; 
6-P4D P3D; 7-P5D (?) C1C; 8-C3B 
B5C; 9-B3R C2D; 10-P3TR B4T; 11- 
T1R B2R; 12-P3CD (?) P4CR; 13- 
P4CR B3C; 14-D2D P4TR; 15-CxPC 
PxP; 16-PxP C3B, 17-P3B (?) com 17- 
D2R as brancas evitariam a combinaca'o 
que as pretas planejam para romper as 
defesas do rei branco. 17-...D2D; 18- 
T1BR (?) impunha-se jogar 18-D2C 
para defender a casa 4CR seguido do rei 
a 2B para poder mobilizar as duas tor- 
res. 18-... 0-0-0 as pretas completam a 
mobilizaca"o de suas pecas sem que as 
brancas percebam as intencoes do adver- 
sario. 19-TD1C as brancas desperdi- 
9am a ultima oportunidade de organizar 
uma defesa razoavel. 19-...T5T!; 20- 
B2B. 




O cenario esta pronto para uma de- 
monstracao de for?a das pretas. 

20-...TxP+!!; 21-PxT se recusar a 
captura, as pretas continuam com 21 -. . . 
TxC! se 22-DxC CxPR! com multiplas 
amea9as indefensaveis. 21-...DxP+; 22 
B3C (for9ado) DxB+; 23-D2C D6C+; 
24-T2B DxC; 25-P4C o Constellation 
estd aturdido e impotente. 25 -...TIC 
abre mais uma coluna sobre o monarca 
branco. 26-Tl-lBBxP!;27-CxBTxD+; 
28-TxT CxC; 29-TxP R2D; 30-T2- 
7C D8R+; 31-R2T D5T+; 32-R2C 
P4C; 33-TxB+ DxT; 34-TxD RxT; 
35-R3B C6B e a partida foi declarada 
perdida para as brancas. 

CONSTELLATION X NN 
NIVEL3- 17,XI,84 

1_P4R P4R ; 2-C3BRC3BD;3-B4B 
B4B; 4-P3B D2R; 5-P4D PxP; 6-0-0 
PxP;7-CxPC4R(?) 




Posicao depois de 7-CxP C4R (?). A 
pressa em trocar pe9as- leva as pretas a 
ficarern em posi^o inferior. 

8-C5D! D3D. Se 8-...CxC+;9-DxC 
amea9ando depois de 9-. ..DID; 10- 



C6C!oulO-...D3D B4B! 9-...D3D;10- 
CxC DxC; 11-B4B! ganhando material. 

CONSTELLATION X ELITE /AS 
NfVEL2-RIO,X, 1984 
DEFESA "CARO-KANN" 

1-P4R P3BD; 2-P4D P4D; 3-P5R 
B4B; 4-P4BR D4T+; 5-P3B BxC; 6- 
TxB DxPT e as brancas capturam um 
peao. 7-B3R P3R; 8-B3D C3TR; 9- 
C2R B2R; 10-C1B D4T; 11-0-0-0-0; 
12-B2BD C4B; 13-B2B C1-2D; 14- 
P4CR C5T; 15-D3D consequente com 
a 13? iogada. 15-...C3CR; 16-P5B 
C5B; 17-D3B P4CR; 18-C3D CxC; 
19-BxC P3TR; 20-P6B BID; 21-D3T 
P4T; 22-DxP CxPB apenas retarda o 
desfecho da partida sem contudo modi- 
fica-lo. 23-PxC T1R; 24-D7T+ RIB; 
25-D8T, mate. 

LIPNICKY X SCHULZ 
BERLIM, 1945 




As pretas jogam e empatam. 

SOLUQAO: 

a*± d*H o +d*d axa a i+ad*cr ' v 



Enxadrista experiente, Luciano Nilo de An- 
drade j;i escreveu para os jornais "Correio da 
ManhS". "Data News" e "Ultima Hora" e pa- 
ra a revista "Fatos & Fotos". Luciano 6 econo- 
mista, trabalhando no Ministe'rio da Fazenda, 
no Rio de Janeiro. As opinides e coment6rios 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
putadores, estarSo sempre presentes em 
MICRO SISTEMAS. 




FITS. Services 



SOFTWARE -CP/M 



• Administrate Im6veis/ 
Condom mios 

• Controle Adrninistrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hoteis 

• Correcao MonetaTia balanco 

• Faturamento Servigos M6dicos 
(Convenios) 

• Formulacao/C^lculo de Ra?6es 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n9 21 - C-01 
CEP 22250 - Botafogo - RJ „ 
Tel.PBX (021) 551-6699 



ASSISTENCIA 

TECNICA 

AUTORIZADA 




Microcomputadores 
IBM PC, APPLE, TRS-80 
Nacionais compativeis 
Drives, Impressoras 
Consulte-nos sobre 
Contratos de manutengao 



Av. Aim. Barroso, 91 - gr. 1.111 
Tel.: (021) 262-1886 



ALBAMAR 

eletrOnica ltda. 



FITAS CASSETES 
TAMANHOS 

C5 C10C15 C20 
C30 e outros 



•FITAS 
MAGNETICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e8" 



Rua Conde de Leopoldina, 
270-A Sao Cristovao — R.J. 
Tels.: (021) 580 6729 
580-8276 



Dado! 



PUBLICACfiES T£CNICAS 
Disponiveis em portugues 

1 - Curso de dBase II 

2 - flplicativos dBase II 

3 - Relatorios dBase II 

4 - Curso de dBase III 

5 - Curso de Lotus 1 -2-3 
6-flplicat. Lotus 1-2-3 

7 - Curso de Symphony 

8 - Curso de Frameujork 

9 - Curso de DOS (PC) 

1 - Curso de Unix 

1 1 - Curso de linguagem C 

1 2 - Curso de UUordstar 

f,:c.5',iir"ci;n 



V€NDfiS DISPONES Pflflfl 

TODO BRRSIL 

fll. Santos. 336 -CJ. 42 

C€P01418-SP 

T€L:' (01 1)285-0132 




mcnaeouipa 



COMPUTADORES 
E PERIFERICOS 

UNITRON 
MICROCRAFT 



VENDAS 
LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 



Av. Mai. Cimara, 271 s/lo|a 101 
Tel: (021)262-3289 — R.J. 




PARA PROBLEMAS COM MATERIAL DE 

DESENHO • PINTURA • ENGENHARIA 
PAPEURIA - ESCRITORIO - MAQUINAS P/ 
ESCRIT.6RI0 E SUPRIMENTOS EM GERAL 
«e5L BEL-BAZAR 

,'xf eletrQnico 

ondo vocfl AINDA onconlra preco 
a qualldadc de ANTIGAMENTEi 

AV. ALMIRANTE BARROSO, 81 • U "C" 

TEL.: 262-9229 - 262-9088 - 24f>8410 - 221-8282 

RIO DE JANEIRO -CASTEL0 



He 



CURSOS 
HARDWARE ou SOFTWARE 

C0RRESP0NDENCIA ou PESSOALMENTE C/AULAS PRATICAS 



|)Of 



eletrOnica digital I eii 

- Prdtica em KITs + apostila encadernada. 
MICR0PR0CESSAD0RES 

Z80 - 8085 - 8080 - 8086 - 8088 - 6502 

- Pralica nos KITs ZHardware e 8anana 85 + 
apostila encadernada. 
MANUTENCAO DE 
MICROCOMPUTADORES 

TRS80 - CP500 DGT100 - NAJA - SYSDATA 

- PrStica de manutencao com sofisticados 
equipamenios + apostila encadernada + 
esquema de todos os computadores. 
MANUTENCAO DE PERIFERICOS 
DRIVES - IMPRESSORAS - M0NIT0RES - 
INTERFACES 

- Pratica de manutencao com sofisticados 
aparelhos + apostila encadernada + 
esquemas dos Perifericos. 



INTRODUgAO a C0MPUTACA0 
- Pratica de manuseio e vetificacao das partes do 
computador e suas unidades + apostila 
encadernada. 

BASIC BASIC0 e AVANCAD0 
• Pratica de programacSo nos computadores da 
"Hardware" * apostila encadernada. 

COBOL PARA MICROCOMPUTADORES 
•-Pritica de programa?3o nos computadores da 
"Hardware" + apostila encadernada. 

ASSEMBLER ZILOG e INTEL 
(Z80e8085) 
-Pratica de programacao nos computadores 
ZHardwaie - Banana 85 - CP500 • TK83 - DGT100 



ATENCA0: INICI0 DE TODOS OS CURSOS EM ABRIL/85 
HARDWARE CURSOS - INDUSTRIA DE INTERFACES - ASS. TECNICA 
- C0MP0NENTES ELETR0NIC0S 
MARRECAS, 39/402 - Cinelandia - CALL (021) 220-5403 - RJ 



PR0FISS10NAL DE GRANDE QUALIFICAQAO 

MICR0C0MPUTAD0R 

MTS-IV 




MAIS RAPIDO DO MERCADO, 
FABRICADO POR QUEM FAZ A 
MELH0R MANUTENCAO. 
CONSU LTE OS NOSSOS CLIENTES. 
AGORA TAMBEM M0DEL0 

MTS/PC XT 

DE 16 BITS. 



MAQUIS TECNOLOGIA E SISTEMAS LTDA 



Rio de Janeiro 

Av Barao de Tefe 7 GR 501 /08 

Telefone 263 3330 

TWXI021) 30354 



MAQUIS 

S8o Paulo 

Av dos Imares 999 

Telefone 543 3511 

TWX (011) 21299 
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c assif icados 

VENDO dlliyU ^^P 



SOFTWARE 



• Programas p/Apple — os me- 
Ihores do mercado internacional 
- 1.000 tftulos - Cr$ 25.000 
disco cheio — Alfamicro — CX. 
Postal 21 193 -S. P. 

• Vendo jogos nac. e imp. p/ 
TK 85, CP 200 e linha Sinclair: 22 
jogos de 16K por 15 mil. Cx. Pos- 
tal 529 - CEP: 09500 - S. C. do 
Sul-SP. 

• Vendo ou troco soft p/CP- 
300 e similares. Tratar c/ Ivan - 
Rua Joao Barcelos, 40 - Itamara- 
ti - Petr6polis - RJ. CEP: 25600 - 
Tel.: (0242) 42-5516. 

• Micro e movido a programa da 
Microlove. Reabasteca o seu Sin- 
clair e TRS-80 com nossos pro- 
gramas. Peca listarjtel.: (011) 
448-4372. 

• Progs. p/Sinclair: 10 a escolha 
p/1 ORTN. Jogos in^ditos e em 
alta resolucao: Pack Rabit, Qbert 
Burgertime, Valkirie, etc... A. M. 
Brito - SHIN Ql - 13 Cj. 4/Cs. 4 
CEP: 71500- Brasilia -DF. 

• ZX Spectrum: programas ori- 
ginais ingleses, livros, revistas- Bar- 
bosa - Cx. Postal 31.052 - RJ - 
CEP: 20732. 

• Troco programas (Basic/As- 
sembler) p/Tks, CP. carta/K-7. R. 
F. Francisco Sampaio, 180 — San- 
tos-SP. - CEP: 11100 - Tel.: 
(0132) 380884 - Roberto. 

• Vendo e troco programas Sin- 
clair TRS-80, peca catSlogo. Os- 
valdo Alencar - Av. Gentil Bitten- 
court, 124/1.301 - Belem - PA. 
CEP: 66000. 

• Soft p/TK e CP. Lista gratis - 
FM Software - Cx. Postal 85 - 
Tatuf - SP, ou R. Proenga, 311 - 
J. Proenca - Campinas. 

• Vendo 55 jogos p/60 mil li- 
nha Sinclair. Leonardo - Av. Ber- 
nardo V. de Melo, 3.481/021 - 
Piedade - Jaboata*o - PE. Tel.: 
(081)361-0292. 

• Apple & Compati'veis progra- 
mas e manuais — Solicite listas - 
Dominio Publico Soft & Man - Cx. 
Postal 201 - S. Bernardo do Cam- 
po- CEP: 09700 -S.Paulo. 

• TK 85 e compati'veis. Progra- 
mas ineditos. Peca relaca"o pelo 
correio. Bonisoft - Av. Paula e 
Souza, 422 - Maracana" - Rio - 
RJ. CEP: 20271. 

70 



• TRS 80 Color - Troco progra- 
mas. Raul Horter. Cx. Postal 46 - 
Campo Bom - RS. CEP: 93700. 

• Topografia: Soft para c£lculo 
analftico de a>ea para Sinclair (300 
estacdes). Com Ricardo - RuaSil- 
va Jardim, 1.953 - ap. 702 -Santa 
Maria -RS. CEP: 97100. 

• Atencao usuSrios dos micro- 
computadores, TK, Apple, esta- 
mos comercializando programas 
de alta qualidade, entre eles, para 
linha Apple esta"o o famoso edi- 
tor gr£fico The Print Shop, Janela 
M£gica II, e os incrCveis progra- 
mas: Visicalc, DBase II, Visi File e 
jogos como Skay Fox (tridimen- 
cional), Wolfenstein II e muitos 
outros que voce nem pode imagi- 
nar. Para a linha TK temos:Sinte- 
tizador de Voz, Zaxxon, Polares 
e muitos mais (130 tftulos). Es- 
creva para Lumen Soft — Rua Li- 
cinio Leite Machado, 59 - Santa- 
na - Sao J. dos Campos - SP. - CEP 
12200. Ou ligue para (0123) 
22-0420. 

• Pacote de c£lculo numlrico 
para linha Sinclair. Fita com 18 
programas, incluindo: Sistema Li- 
near, Inversao de Matriz, Autove- 
tores, Sistema Na"o- linear, Calcu- 
lador de F6rmulas, Zeros de Fun- 
coes, RegressSo Linear, Interpola- 
te), Integral, S6rie de Fourier, 
GrSfico de f(x), Superfi'cies, Cur- 
vas ParamGtricas, TransformacSes 
no piano complexo, Equacoes di- 
ferenciais ordina>ias (com gr£fi- 
cos). Acompanha manual. Preco 3 
ORTN. Envie cheque nominal a 
Luiz Henrique Duczmal - Rua Ja- 
va, 186 - Nova SuCca - Belo Ho- 
rizonte - MG. CEP: 30000. 

• Programas para Apple: aplica- 
tivos, utilita>ios, compiladores, 
linguagens e jogos. Tel.: (021) 
239-0449 -Stela. 



D I VERSOS 



• Vendo monitor de vi'deo pro- 
fissional PH Verde 24 MHZ de 
banda passante para Apple ou CP 
300, preco 850.000 - Tratar com 
Luiz, tel.: (011) 208-2176. 

• Vic Commodore manutencao 
se>ia, mil soft, manuais em portu- 
gues, cabos, capas, interface K7 e 
RS 232 para CBBS e projeto Ci- 
randa"o, manuais tecnicos para 
Epson, TRS 80, conectores, etc. 
Bart6 Computadores - Tel.: (021) 
262-1213 - Av. Nilo Pecanha, 
50/2.407 -Rio. 

• Vendo placa 80-Col. p/Apple 
lie. Tratar com Armando, tel.: 
(0132) 36-6208. 



• Instalo gravadora de mem6ric* 
EPROM (2716-2732) nos micros 
da linha Sinclair, permitindo c6- 
pias de outras mem6rias ou gra- 
vapa"o de dados da mem6ria. 
Adapto tambe'm expansao de 8K 
(4K-Eprom e 4K-RAM). Tratar c/ 
Jose" Carlos. Tel.: (011) 220-4061. 

• Alta resolucao — Projeto com- 
pleto (Hard/Soft) para linha Sin- 
clair (TK, NE, CP). Montagem 
facflima de baixo custo (- 1,5 
ORTN). Cheque Cr$ 15.000 no- 
minal para Nilton Cazzaniga Jr. 
Rua Jose Pedro Cosenza, 377 - 
Itatiba-SP-CEP 13250. 

• Manuais em portugues para 
micros e perife>icos Commodore. 
Escreva para W. Belo, R. Itamara- 
ca, 47- D. Caxias - RJ ou tel.: 
(021) 771-6889. 

• Sensory Chess Challenger 9, 
em bom estado. Preco era aberto. 
Contatos a noite com Italo, tel.: 
(011) 533-6671. 

CURSOS 

• BENNY Curso de Basic Indivi- 
dual em 5 pagamentos. C/rodf- 
zio de computadores das linhas 
TRS-80, Apple e Sinclair, qual- 
quer idade. Tel.: (011) 570-1555. 
Metro Arosa. 

• Mumps — A Matrix promove, 
mensalmente cursos de Mumps. 
Rua Maestro Elias Lobo, 70. CEP: 
01433 - SP. Informacoes (011) 
64-0688. 

• A MIKROS esta" promovendo 
regularmente cursos de Introdu- 
cao ao Processamento de Dados, 
Basic e Basic Avancado, nos 
seguintes horaYios: segunda, quar- 
ta e sexta, das 10:00h as 1 1 :00h, 
14:30h as 15:30h e 18:00h as 
19:00h, duracao de 3 meses, total 
de 36 horas, sendo que a maior 
parte das aulas sera prStica. Melho- 
res informacSes Av. Ataulfo de 
Paiva, 566 - sobrelojas 21 1 e 202 - 
Rio - RJ. Tel.: (021) 239-2798 ou 
511-0599. 



• PALESTRAS: Palestras gratui- 
tas sobre Basic, CP/M, DBase, 
Visicalc e Wordstar na People 
Computacao. Av. N. S. Copa- 
cabana, 1.417, loja 313, tel.: 
(021) 521-1549. 

• O Instituto de Tecnologia 
ORT, est^ para o mes de abril 
com inscricQes abertas para os se- 
guintes cursos: Microcomputado- 
res para Usuarios, Microcomputa- 
dores para Programadores e Ana- 
listas e Microcomputador na Edu- 
cacao. InformacSes e inscricSes a 
Rua Dona Mariana, 213, tel.: (021) 
286-7842 - Rio de Janeiro - RJ. 



• A Datamicro esta com inscri- 
bes abertas para os seguintes 
cursos: Microcomputadores para 
criancas (8 a 14 anos), M6dulos 
I, II, III com 12 horas cada, Pro- 
gramaca"o Basic I (28 horas) e 
Avancado (20 horas), Linguagem 
de Maquina para o TK (20 horas), 
Micro Aplicado ao CSIculo Estru- 
tural (20 horas). Informacoes Rua 
Visconde PirajS, 547, s/211 - Ipa- 
nema-Tel.:(021) 511-0395. 



CLUBES 

• Petroclub — Escreva enviando 
anexo 2000 mil e receba imediata- 
mente jogos e programas para a 
linha Sinclair ou TK 2000, e en- 
vie tambeVn detalhes do seu mi- 
cro. Rua Sold. Hercilio Tardeli, 
152 - Petropolis - RJ. CEP: 
25600. 

EQUIPAMENTOS 

• Vendo TK 85, 48K, alta reso- 
lucao, safda p/ monitor, 2 grava- 
dores. Joystick e 170 programas. 
Eugenio Betanho, tel.: (011) 
64-7074 -Sao Paulo. 

• Micros usados compro, troco e 
vendo. BENNY. R. Domingos de 
Morals, 407, CEP: 04009 - Tel.: 
(01 1 ) 570-1 555. Metr6 Arosa. 



PARA ANUNCIAR NESTA SEQAO 
ESCREVA PARA: 



Av. Presidente Wilson, 165/Grupo 1210 

Centro — Rio de Janeiro/RJ — CEP 20030 

Tels.: (021) 262-6306 

Rua Oliveira Dias, 153 — Jardim Paulista 

Sao Paulo/SP — CEP 01433 —Tels.: 

(011)853-3229 



MtCROCOMPUTADOR=COLOR 

VOCE TEM QUE ESTAK PREPARADO 
PARA SE DESENVOLVER COM OS 
N0V0S TEMPOS QUE ESTAO Al . E 
CP 400 COLOR t A CHAVE DESSA 
EVOLUgAO PESSOAL E PROFESSIONAL 





POR QUE? 
PORQUE0 
CP 400 COLORE 
IMCOMPUTADOR 
PESSOAL DE 
TEMPO INTEGRAL 
QT1L PARA A 
FAM&JA TOM, DIA INTE1R0. 

NAII0RADESEDIVERTIR.POR 
KXEMPL0, £ MUIT0 MAIS emocio- 
NANTE TORQUE. ALEM DE 0FERECKR 
JOGOS LNEDIT0S, E GfflCO COM 
2 JOYSTICKS ANAJjOGICOS DE ALTA 
SKV-IBII.IDADE, QUE PEKAUTEM MO- 
VIMESTAR AS LVIAGENS EM T0DAS 
AS DIREgOES, MESM0. NA H0RA 
DE TRABALHAR E ESTUDAR, CP 400 
COLOR M0STRA SEU UDO SERIO: 
MEMORIA EXPANSfVEL, PORTA PARA 
COMUNJCACM) DE DADOS. SAIDA 
PARA IMPRESSORA. E I 'MA OTIMA 
XTI'IDE?, COM LMAGENSCOLORjDAS- 

C0MOSETUD01SS0NAO 
BASTASSE. A PKOL0GICA AINDA 0FE 
RECE A GAKANTtA DF yUALffiADE 
DEQUB1 t LI'DER NA TECNOIjOGIA 
DEGCAfPUTADORES, E PRECO 
MAIS ACESS(\'E1. NA CATEGORM 

KUftlAFRASErSEVOCENAO 
QUEER OIFjGAR A11USAIX) A0 FU- 
T1JR0.COMPRESEU CP 400 COLOR 
IMEHATAA1ENTE. 

F.MOCAO E 1NTELIGENC1A IVUIH 
EQl'lPAiMEVTO SO. 
• MKR0PR0CESSAD0R: 6»»E COM 



ESTRtTtlRAlVli.KNvni: 

16 BITS E CLOCK DE FREQCfiNClA 

DEATPJ.6MDZ. 
•POSSIRIUTA0US0DEATE 

9 CORES. E TEM LIMA RESOMJ^AO 

GRAFtCA SUPERIOR A 49.000 

PONTOS. 
»MEM0]tIAR0M:RiKLi\TJ-S 

I'ARASlS'lBtAOPERAaONALE 

IMTJtfRETADORKASlC 
• \\m(MK RAM; CP 400 COLOR 

ESTA DlSPONiVEL EM WHS MODELOS: 
• M0DEL0 I6K: 

KXI'ANSIVKl.A 
(^KBYTES. 
•MODEL064K: 
Alt 64K BYTES 
QUAND0USAIX) 
COM NOVO 
DISK-SYSTEM. 
CP 450. 

ocp color disp0e 01 

cartuc1i0s de programas cow 

m bytes 11ecapacumde. 
que permitem carregamen1 1 1 
ikstantAneodeiogos. 
I im:;i agens e aPLICaHVOS como- 

BANa» DE IWDOS, PUNIIJU.S 
|)E CAI.CUU). EDTTORES DE TEXTOS 

AH JCATTxXJS FINANCE] R0S. 
APUCATIVOS GRAtXOS, FTC. 
SAJDA SERIAL RS 132 C QUE 
PERMTrE aiMUNICACAO DE DADOS 
ALEM DO QUE. ATRAVES DESTA 
PORTA, V(x:e PODE C0NECTAR 



IESS0RA SERIAL 




QWIQUEK IMPRESS0RA SERIAL 

0UATEMESMO 

F0RMAR LIMA 

REOEDETRABA 

LH0C0M 

(HTROS MICRO! 

• PORTA PARA 

CI-i.V.Alii-R'i.AS 

SETE COM GRAVACAO E I^ITURA 
DEALTAVELOCmADE. 

• SAllWS PARA TV r EM CORES E MONI- 
TOR PROFtSSIONAL 

• I HiAS ENTRADAS PARA Jl )YS'li: KS 
AN.\I/K]]C0SQLIE0FERECL\] 
INKINITASlOSigOESNATKLA, 
ENQUANTO OUTROS TEM S0MENTE 
S DJKEgOES. 

• AMPLA BIBUOTECA DE SOFTWARE 
I A DISPONftTiL 

• AL1MEN7ACA0- 110-220 VOLTS, 

VEKTESTEECQMPRE 

SEU CP 4(XK;0I.0R NOS MAt;,\ZINES 
E REVENDED0RES PR0L0G1GA. 

TECNOLOGIA ■■■ 
PFtOLOGICA ■■■ 



3) 



COMPUTADOPBS PESSOAIS 

MA PrOi OMf.U, GOO VTLA SQCQRtKJ 

sao paulu. &p. cep oms 
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QUEM TEM UM,TEM FUTURO. 



Apresentamos o 

TK 20001 

Be roda o programa 

maisfamoso 

do mundo. 

De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

novo TK 2000 II roda o 
Multicalc:a versao Microsoft da 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto sigmfica que, com ele, voc 
controla estoques, custos, contas a 



pagar, laz sua programacao financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atrvidades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar pfanilhas com 
computadores da linha Apple* 

E, como todo business computer 




que se preza, ele rem teclado 
profissional aceita monitor, diskette, 
impressora e jd vem com interface. 

AIGm de poder ser ligado ao seu 
televisor (cores ou P&BI, oferecendo 
sorrf e imagem da melhor qualidade. 

Portanto, peca logo uma 
demorcstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de mem6ria. 

A mais nova estrela do show 
business s6 espera por isto para 
estrear no seu negrjcio. 

Prepo de lancamento* (128 Kl: 
Cr$ 2.649.850 

/MiCRODIGIML 

computadores pessoais 



Open for Business. 




I 



■- 



a 




Sijjeho a altaacao setn prtvio wisa 



